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ABSTRACT 


The  present  report  established  a  probabilistic  characterization  of  a 
damaged  structure,  which  is  modeled  as  a  nonlinear  multi-degree-of-f reedom 
(MDF)  system.  The  random  excitation  may  be  either  stationary  or  nonsta¬ 
tionary.  The  stiffness  matrix  is  nonlinear  to  simulate  the  elasto-plastic 
behavior  of  a  damaged  structure.  The  stiffness  matrix  is  also  random  to 
characterize  the  material  and  environmental  variations.  The  governing 
stochastic  differential  equation  is  resolved  into  one  for  the  mean  response 
and  another  for  its  random  component.  The  responses,  their  statistical 
moments  and  cross-moments  are  solved  with  discrete-time  recurrence  formu¬ 
lations.  The  omission  of  the  higher  order  terms  in  obtaining  the  response 
statistics  is  admissible  if  the  stiffness  does  not  behave  extremely  random. 
Both  errors  in  the  mean  and  variance  responses,  which  arise  from  neglecting 
the  higher  order  terms,  are  of  small  order.  The  numerical  computation  shows 
two  important  results.  (1)  The  response  autocovariance  function  for  the 
non-linear  system  has  greater  magnitude  than  the  response  autocovariance 
function  for  linear  system.  (2)  The  response  autocovariance  function  for  a 
system  with  random  stiffness  is  significantly  greater  than  the  response 
autocovariance  function  for  a  system  with  deterministic  stiffness.  The 
probability  of  structural  damage,  or  the  structural  reliability,  is  then 
estimated  by  the  upper  bound  of  the  cumulative  energy  dissipation.  It  is 
noted  that  the  damage  diagnosis  of  structure  is  based  upon  the  successful 
mathematical  modeling  of  the  structural  system.  The  formalism  of  the  present 
report,  therefore,  enables  us  to  assess  the  damage  for  a  generic  class  of 
MDF  non-linear  system  with  Prandtl-Reuss  material.  In  addition,  the  present 
investigation  allows  us  the  ready  adaptation  to  finite  element  analysis. 
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Chapter  1 


INTRODUCTION 


1.1  STATEMENT  OF  PROBLEM 


The  purpose  of  the  investigation  is  to  assess  the  structural  damage  due 
to  a  random  strong  excitation.  In  the  process,  the  research  establishes  a 
probabilistic  characterization  of  the  inelastic  multi-degree-of-freedom 
(MDF)  system  and  its  response  due  to  random  excitation.  The  stiffness 
matrix  is  nonlinear  to  simulate  the  elasto-plastic  behavior  of  a  damaged 
structure.  The  stiffness  matrix  is  also  random  to  characterize  the  material 

t 

and  environmental  variations.  Based  on  the  statistical  results,  the  damage 
and  the  reliability  of  the  structure  can  be  assessed.  This  technical  report 
constitutes  as  part  of  the  theory  of  damage  diagnosis. 

The  reliability  of  a  system  is  defined  as  the  probability  that  it  will 
exhibit  behavior  that  satisfies  certain  criteria  over  some  preestablished 
time  duration.  The  criteria  may  associate  with  the  survival  of  the  struc¬ 
ture  without  catastrophic  failure  or  the  functioning  of  the  structure  to 
meet  the  design  purpose  even  with  cumulated  amount  of  damage.  The  relia¬ 
bility  of  a  structural  system,  however,  is  not  known  when  the  design,  which 
is  based  on  design  codes,  has  been  completed.  The  reasons  are  (1)  struc¬ 
tural  design  for  dynamic  environments  is  established  using  iterative  pro¬ 
cedures,  (2)  the  dynamic  environments  are  in  random  nature,  (3)  the 
uncertainty  of  the  structural  system.  They  are  stated  as  follows. 


(1)  Structural  design  for  dynamic  environments  is  established  using 


iterative  procedures:  The  design  procedures  of  a  structure  for  dynamic 
environments  can  be  summarized  as  below. 

(a)  The  limitations  on  the  design  are  defined. 

(b)  A  preliminary  concept  on  a  safe  design  is  proposed. 

(c)  The  preliminary  design  is  analyzed,  and  a  model  is  tested, 
numerically,  or  in  the  laboratory,  if  possible. 

(d)  The  response  is  assessed. 

(e)  The  design  is  satisfactory  if  the  response  fits  the  require¬ 
ments.  Otherwise,  the  design  must  be  modified,  repeating  steps  (b)-(e)  until 
a  satisfactory  response  is  achieved. 

It  can  be  seen  that  the  reliability  of  the  structural  system  is  not 
known  unless  a  proper  theory  is  developed  to  assess  the  response.  The 
theory  discussed  here  includes  two  purposes,  namely,  (i)  to  predict  the 
damage  of  the  structural  system,  (ii)  to  assess  the  damaged  structures  for 
existing  structures.  Such  theory  is  known  as  the  damage  diagnosis  in 
structures.  Therefore,  it  follows  that  the  damage  diagnosis  not  only  can 
help  us  in  determining  the  assessment  of  the  structural  response,  but  also 
enables  us  to  establish  the  reliability  for  the  structure  under  consider¬ 
ation.  On  the  other  hand,  without  the  theory  of  damage  diagnosis,  the 
structural  engineer  has  no  way  to  know  the  reliability  of  the  structure  he 
has  designed. 

(2)  The  dynamic  environments  are  in  random  nature:  In  the  design  pro¬ 
cess,  it  is  possible  to  use  deterministic  analysis  for  some  limited  appli¬ 
cations.  This  is  true  in  situations  where  the  structure  under  consideration 
is  loaded  only  by  known  deterministic  forces  and  where  the  parameters  of  the 
structure,  its  foundation,  and  the  applied  loads  are  nonrandom  (or  display 


very  little  random  variability).  However,  under  most  circumstances, 
especially  for  dynamic  loadings,  it  is  desirable  to  execute  analyses  that 
take  into  account  random  variability  in  the  structural  load  and,  possibly, 
the  parameters  of  the  structure  under  consideration.  When  structural  loads 
are  random,  the  computation  and  assessment  of  structural  response  in  step 
(c),  (d),  of  the  procedure  for  structural  design,  as  mentioned  in  (1),  must 
account  for  this.  Thus,  a  probabilistic  measure,  or  an  average  measure  of 
structural  response,  must  be  computed  and  used  in  the  response  assessment. 

The  theory  of  damage  diagnosis,  hence,  must  take  into  consideration  the 
probabilistic  response  characterization  of  structure  with  random  loads. 
Examples  of  random  dynamic  loads  are  earthquake,  blast,  wind,  ocean  waves, 
aerodynamic  turbulence,  vibration  induced  in  transportation  by  road  rough¬ 
ness,  dynamic  load  for  aircraft  during  landing,  etc.  In  order  to  execute 
the  analysis  of  structural  response  using  a  probabilistic  approach,  the 
statistical  properties  of  these  loads  must  be  known.  These  statistics  are 
essential  for  the  theory  of  damage  diagnosis.  According  to  the  statistics 
of  the  random  loads  and  the  theory  of  damage  diagnosis  established,  the 
reliability  measures  can  be  assessed  based  on  the  probabilistic  results. 

(3)  The  uncertainty  of  the  structural  system:  Randomness  may  also  occur 
in  other  important  areas  in  the  structural  dynamic  system.  Particularly, 
the  parameters  that  characterize  structural  behavior  may  be  random.  For 
example,  in  linear  problem,  the  parameters  that  define  stiffness,  damping 
and  mass  may  be  random.  In  other  words,  the  parameters  that  define  modal 
frequencies  and  damping  factors  may  be  random.  Further,  in  the  elasto-plastic 
problems,  the  parameters  that  define  the  nonlinear  plastic  characteristics 
of  structural  behavior  are  definitely  random.  Structural  parameter 
randomness  arises  from  two  sources.  The  first  is  randomness  in  material 
properties.  The  second  is  randomness  in  structural  geometry  and  assembly. 


Randomness  in  structural  characteristics  may  be  manifested  in  various 
ways.  On  a  very  general  level,  all  material  and  geometric  parameters  may  be 
considered  as  random  process  and  many  of  these  random  processes  may  be 
correlated.  On  a  simpler  level,  which  is  investigated  for  current 
research  year,  randomness  may  be  limited  to  the  variation  in  one  or  a  few 
parameters,  and  these  parameters  are  considered  as  random  variables  rather 
than  random  processes.  The  elasto-plastic  material  belongs  to  this 
category.  However,  for  frictional  material,  such  as  concrete,  the  variation 
in  stiffness  may  be  time  dependent  since  the  material  will  show  stiffness 
and  strength  degradation  whose  statistics  are  varied  by  time.  In  that  case, 
a  random  process  which  is  used  to  represent  the  randomness  in  structural 
characteristics  is  necessary.  This  will  be  investigated  for  next  research 
year . 

According  to  these  statements  as  discussed  above,  the  reliability  of 
the  structural  system  must  be  carried  out  by  using  the  theory  of  damage 
diagnosis  in  order  to  obtain  a  satisfactory  design.  Further,  the  damage 
diagnosis  is  based  on  the  successful  modeling  of  the  damageable  structural 
system.  Therefore,  it  is  obvious  that  the  theory  of  structural  damage 
diagnosis  is  important  because  it  can  not  only  accurately  describe  and 
analyze  data,  but  also  predict  behavior  under  conditions  not  covered  by 
data.  In  particular,  we  use  the  theory  of  damage  diagnosis  in  engineering 
first  to  assist  in  the  design  of  components  and  devices  to  achieve  a  speci¬ 
fied  level  of  safety  and  reliability  at  a  minimum  cost,  and  second  to  assist 
in  the  optimum  management  of  these  structural  systems  in  service. 

In  developing  a  diagnostic  theory  for  damaged  structures,  the  investi¬ 
gations  have  studied  various  structural  models.  The  first  model  was  a 
hyper-linear  model,  in  which  the  nonlinear  hysteretic  structural  behavior  is 


modeled  by  using  Che  method  of  higher-order  equivalent  linearization .  By 
using  this  approach,  the  non-linear  hysteresis  of  the  restoring  force  can  be 
reproduced.  However,  it  can  not  address  the  structural  phenomenon  of 
permanent  set.  In  order  to  overcome  this,  an  elasto-plastic  model  that  is 
able  to  take  into  account  the  permanent  set  is  proposed  for  the  present 
investigation.  The  objective  of  this  report,  therefore,  is  to  establish  a 
damage  theory  that  enables  us  to  assess  the  probabilistic  characterization 
of  a  damaged  structure,  which  is  modeled  as  a  nonlinear  elasto-plastic  MDF 
system. 

1.2  LITERATURE  REVIEW 


During  the  past  years,  the  research  effort  sponsored  by  the  Air  Force 
Office  of  Scientific  Research  has  made  significant  progress  toward  develop¬ 
ing  a  consistent  structural  theory  in  damage  diagnosis  and  reliability 
assessment.  Numerous  papers  have  been  published  by  Ju  et  al.  Among  these, 
(1,2]  studied  the  diagnosis  of  symmetric  edge  cracks  in  simple  structures, 
where  the  cracks  are  modeled  as  a  fracture  hinge.  The  fracture  hinge  model 
has  recently  been  verified  in  an  experimental  study  (3]  to  be  reported 
later.  The  fracture  damage  diagnosis  for  structure  has  been  investigated 
[4],  wherein  two  nondestructive  methods  of  damage  diagnosis  in  simple  and 
complex  structures  are  studied.  The  damage  assessment  for  nonlinear  system 
which  was  modeled  as  higher-order  equivalent  linearization  system  was 
investigated  [5-7]. 

There  are  also  several  areas  of  research  interest  related  to  the 
analysis  of  randomly  excited  system.  The  general  problem  of  probabilistic 


analysis  of  structural  system  is  treated  in  many  text  books.  Among  these 


are  the  book  by  Lin  [81,  Soong  [9],  Crandall  and  Mark  [10],  Newland  [11], 
Crandall  [12,13]  and  Clough  and  Penzien  [14].  These  books  treat  the  problem 
of  computation  of  response  moments  for  structural  system.  The  first  passage 
problems,  the  fatigue  problems  and  the  Markov  character  of  the  response  of 
systems  excited  by  white  noise  are  also  presented  in  these  books.  In 
addition,  there  are  numerous  papers  published  discussed  the  statistical 
properties  of  the  structural  response  [15-30],  to  name  only  a  few.  Among 
these,  Bogdanoff  [15,16]  has  developed  a  stochastic  cumulative  damage  model 
that  possesses  the  major  sources  of  variability  in  life  prediction  as  an 
inherent  part  of  its  structure.  Similar  works,  however,  by  different 
approach  have  been  investigated  by  Lin  et  al  [17,18,19]  where  the  cracking 
propagation  is  modeled  as  Fokker-Planck  equation.  Wiggins  and  Moran  [20] 
developed  a  means  for  grading  existing  buildings.  A  more  mathematical 
quantification  of  damage  in  structures  has  been  used  by  Ang  and  Wen  [21]. 

Several  other  first  passage  problems  are  solved.  For  example,  [22-29] 
find  the  first  passage  probability,  and  peak  response  probability  distri¬ 
bution  for  SDF  system.  Ang  [30]  approximately  computes  the  first  passage 
probability  for  MDF  system. 

There  are  some  papers  in  the  literature  address  the  problem  of  damage 
assessment.  Yao  [31]  examined  various  definitions  of  structural  damage  and 
reviewed  available  methods  for  damage  assessment.  Park  et  al  [32]  esta¬ 
blished  a  model  for  evaluating  structural  damage  in  reinforced  concrete 
structures  under  earthquake  ground  motion. 


Chapter  2 


LINEAR  SYSTEM 


2.1  INTRODUCTION 


The  governing  differential  equation  of  motion  for  a  structural  frame¬ 
work  modeled  as  a  discrete  multi-degree-of-f reedom  (MDF)  system  can  be 
written: 


[mHz}  +  [  c  ]  { z }  +  [k]  {z}  -  {f}, 


(2-1) 


where  [m] ,  [c],  [k]  are  the  NxN  mass,  damping,  and  stiffness  matrices,  {f} 
is  the  external  load  vector;  {z},  {z},  {z}  are  the  displacement,  velo¬ 
city,  and  acceleration  vectors  of  the  system.  The  differential  equation 
governing  motion  is  random  when  some  terms  of  the  above  equation  are  random 
variables  or  random  processes. 

In  many  applications,  the  external  load  vector,  {f},  is  assumed  to  be 
random.  Less  frequently,  the  coefficients  of  the  above  equation  are  also 
assumed  to  behave  randomly.  In  this  latter  application,  the  mass,  damping, 
and/or  stiffness  are  not  considered  to  be  deterministic  valued,  but  rather, 
they  are  considered  to  be  random  and  to  possess  specific  probability  dis¬ 
tributions.  All  the  coefficients  in  Eqaution  (2-1)  play  an  important  role 
in  determining  the  dynamic  response  of  a  structure.  However,  if  coeffi¬ 
cients  are  to  be  considered  as  random,  it  is  certainly  clear  that  in  prac¬ 
tical  applications  to  building  structures  the  mass  will  have  relatively  low 
random  variation  and  the  stiffness  and  damping  will  have  relatively  high 


random  variation.  Because  slight  nonlinearities  in  material  behavior  can 
occur  in  practice  even  when  the  fundamental  response  is  linear,  the  varia¬ 
tion  in  stiffness  is  especially  important.  Therefore,  in  the  present 
application  only  the  stiffness  matrix  is  considered  to  be  a  random  coeffi¬ 
cient.  The  other  terms  are  considered  to  be  deterministic.  Specifically, 
the  coefficient  (kj  is  assumed  to  be  a  matrix  of  random  variables,  and  the 
forcing  function  {f}  is  considered  to  be  a  vector  stochastic  process. 

It  is  important  to  note  that  in  the  analysis  of  a  random  differential 
equation  the  initial  conditions  can  strongly  affect  the  results  because  the 
probability  distribution  of  the  response  for  a  dynamic  system  is  related  to 
the  initial  conditions  directly.  However,  in  most  structural  dynamic 
systems  the  initial  conditions  can  be  set  to  zero  because  the  structures 
start  from  rest  in  most  situations  of  interest.  Hence,  the  initial  condi¬ 
tions  of  Equation  (2-1)  are  given  as  zero  and  are  deterministic. 

Finally,  note  that  Equation  (2-1)  can  become  nonlinear  when  the  struc¬ 
tural  material  responds  in  the  plastic  range.  The  nonlinear  problem  will  be 
considered  in  the  next  chapter. 

2.2  MATHEMATICL  MODEL 

As  stated  in  Section  2.1,  only  {f}  and  [k]  are  treated  as  random  in 
Equation  (2-1).  The  response,  (z),  then  forms  a  random  process.  The 
quantities  {f},  [ k ]  and  (z)  can  be  decomposed  as  follows: 


where  {$},  [X],  and  {p}  are  the  mean  values  of  {f},  [k],  and  {z};  {F},  [K], 
and  {Z}  represent  the  random  components  of  {f},  [k],  and  {z}.  Taking  the 
expected  values  of  Equation  (2-2)  results  in 

E[{f}]  -  +  E[{F}], 

E[ [k] ]  -  [X]  ♦  E[ [ K] ] , 

E[  { z}  ]  -  {p}  +  E[ { Z} ] .  (2-3) 

Hence,  the  random  terms  {F},  [K]  and  {Z}  must  all  have  zero  means,  because 
E[  { f }  ]  ■  {<)>},  E[[kj]  •  [X],  and  E[-(z}]  *  {p}.  Equations  (2-2)  and  (2-3) 
indicate  that  a  random  process  can  be  separated  into  two  parts,  the 
deterministic  part  and  random  part.  The  deterministic  part  specifies  the 
mean  of  the  random  process  and  the  random  part  characterizes  the  chance 
fluctuation  of  the  random  process. 

When  it  is  possible  to  reduce  a  random  differential  equation  into  a 
simple  form  with  the  mean  zero  property,  it  simplifies  the  solution  of  the 
equation.  In  view  of  this,  we  substitute  Equation  (2-2)  into  Equation 
(2-1),  to  obtain 

[m]  ( {p}+{z}  )  +  [c](  (p}  +  {Z} )  +  ( [X]  +  [K])(  {p}  +  {Z})  -  {$}  +  {F}.  (2-4) 

The  mean  response  can  be  obtained  from  the  above  equation;  then  the  remain¬ 
ing  part  characterizes  the  random  component  of  Equation  (2-1).  As  an 
approximation,  it  is  assumed  that  the  mean  response  is  excited  by  the  mean 
of  the  input  with  the  stiffness  equal  to  its  mean  value.  A  motivation  for 
this  approximation  can  be  established  as  follows.  Let  g  represent  a  measure 


of  a  response  random  process  that  is  a  function  of  the  excitation  and  struc¬ 
tural  parameter  random  variables,  a..,  i  •  1 ,  N.  The  functional  expres¬ 

sion  is 


g  -  f(a1 ,  <*2 ,  •  *  •  oe^) . 


(2-5) 


Using  a  Taylor  series,  f  can  be  expanded  about  the  means  of  the  random 
variables  to  obtain 


g  -  f(a1 ,  a,,  • • •  aN>  - 


) 


V  3f 

U .  )  T“ 

1  da . 

l 


(2-6) 


where  u. ,  i  ■  1,  •••  N  denotes  the  mean  of  a..  When  the  deviations  from  the 
l  l 

means  are  small,  the  series  can  be  truncated  following  its  linear  terms.  The 
expected  value  of  g  is,  therefore, 


E[g]  =  f(p.,  •••  PN).  (2-7) 

Equation  (2-7)  shows  that  the  mean  value  of  a  measure  of  a  response  random 
process  can  be  approximated  when  all  the  random  variables  upon  which  the 
response  depends  take  their  mean  values. 

Based  on  Equation  (2-7),  the  mean  response  can  be  obtained  by  solving 


(raHiU  +  {c]{y}  +  UHul  “  {<>}  • 


(2-8) 


The  remaining  component  of  Equation  (2-4)  then  can  be  obtained  by  subtract¬ 
ing  Equation  (2-8)  from  Equation  (2-4), 


+  [  c  ]  { Z}-  +  ( [  K  ]  +  [\]){Z}  *  (F}  -  [  K  ]  { p.  )■ . 


(2-9) 


In  Equation  (2-9),  [K]{Z}  is  the  only  term  that  involves  the  product  of  two 
random  quantities-  In  this  sense  it  is  a  higher  order  term.  Its  values 
will  be  relatively  small  when  random  fluctuations  in  the  stiffness  and 
forcing  function  are  small  compared  to  their  mean  values.  By  neglecting 
this  term,  Equation  (2-9)  can  be  reduced  to  the  following  form: 

[m]  {2}  +  [  c  ]  { Z}  +  [\]{Z}  -  {F}  -UHn}.  (2-10) 

Equation  (2-10)  approximately  governs  the  random  part  of  Equation  (2-1),  and 
Equation  (2-8)  approximately  governs  the  mean  of  Equation  (2-1).  It  is 
noted  that  in  the  above  equation,  {Z}  and  {F}  both  are  zero-mean  vector 
random  processes  and  [ K ]  is  a  zero-mean  matrix  random  variable. 

The  advantage  of  separating  Equation  (2-1)  into  Equations  (2-8)  and 
(2-10)  is  that  Equations  (2-8)  and  (2-10)  have  deterministic  coefficients, 
which  are  relatively  easier  to  handle  than  random  ones.  When  Equation  (2-3) 
represents  the  mean  response  of  Equation  (2-1),  and  Equation  (2-10) 
represents  the  random  part  of  Equation  (2-1),  the  mean  square  response 
measures  can  be  obtained  directly  from  Equation  (2-10).  Equations  (2-8)  and 
(2-10)  are  not  independent  since  Equation  (2-10)  includes  the  mean  response 
on  the  right  hand  side.  The  techniques  of  solving  Equations  (2-8)  and 
(2-10)  will  be  discussed  in  Section  2.3. 
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It  is  noted  that  the  higher  order  term  is  neglected  in  Equation  (2-10). 


However,  the  higher  order  term  can  be  treated  and  solved  for  a  SDF  system 
when  the  random  stiffness  K  and  the  response  random  process  Z(t)  are  both 
Gaussian  distribution.  The  discussions  about  the  omission  of  the  higher 
order  term  are  referred  to  in  Article  7.1. 

2.3  FINITE  DIFFERENCE  SOLUTION 

2.3.1  Difference  Formulation 

In  Section  2.2,  it  was  established  that  the  model  of  a  random  differ¬ 
ential  equation  with  random  coefficients  can  be  separated  into  two  parts, 
the  deterministic  part  and  the  random  part.  Equations  (2-8)  and  (2-10) 
represent  the  model.  In  this  section,  techniques  for  solving  Equations 
(2-8)  and  (2-10)  are  established.  Equation  (2-8)  is  considered  first: 

[m]{p}  +  [c]{p}  +  [\.]{p}  -  {0}.  (2-8) 

A  solution  to  this  equation  is  sought  using  a  finite  difference  approach. 
This  solution  establishes  the  displacement  response  at  the  times  t^  *  jAt, 
j  *0,  1,  2,  ••*,  where  At  is  a  small  positive  time  increment.  At  time  t  , 
the  equation  governing  motion  is 


(mHPj}  +  [c]{yj}  +  -  Uj} 


(2-11) 


where  { ii ,  V  is  the  mean  value  of  response  acceleration  at  t. 

J  J 

mean  value  of  response  velocity  at  t  .  When  the  central  di 
is  used,  the  acceleration  and  velocity  are  approximated  by 


,  {p^}  is  the 

fference  method 


I 


( 2-1 2a) 


(iij}  ■  ((n^)  “ 

{ ^ j  >  ■  <  <pj+1)  -  <4^)  )/2At. 


(2—1 2b ) 


Substitution  of  Equation  (2-12)  into  Equation  (2-11)  yields 

[  m  ]  ( { (i .  }  -  2  { |a .  >  ♦  fp.^})  (c]({p.+1)  ~ 

i  +  + 


At 


2At 


UHp.)  -  H  }. 

(2-13) 


This  expression  can  be  solved  for  {p^^}  to  obtain 

(pj+1)  *  1  ( t  a2  )  { M  j  ^  +  t  A.3  H  >  +  At“U  >),  j  -  0,  2,  ••• 

(2-14) 


in  which 


[Aj] 

■  [c ] A t / 2  +  [m], 

[a31 

-  2 [ m ]  -  [\]At2, 

(2-15) 

[a31 

■  fclAt/2  -  [mj. 

Equation  (2-14)  provides  a  recurrence  relation  for  the  displacement 
response.  To  start  the  calculation  it  is  necessary  to  know  {p  j}.  Because 
<Pg)  and  (pQ)  are  known  (usually,  they  are  zero),  the  relations  of 
Equation  (2-12)  can  be  used  to  obtain  {p 


(p.j)  *  'Mg)  "  At{pQ)  *  At~{pQ)/2.  (2-16) 

Using  Equations  (2-16)  and  (2-14),  the  mean  displacement  solution  then  can 
be  obtained. 

Now  Equation  (2-10)  is  used  to  characterize  the  random  response 


component , 


[m]{Z}  +  [c]  {2>  +  [\]  {2>  -  {F}  -[KHjx>  . 


(2-10) 


where  [n>],  and  [c]  are  the  mass  and  stiffness  matrices  and  [\]  is  the 
deterministic  mean  of  the  stiffness  matrix.  Because  the  system  under 
consideration  is  linear  with  constant  coefficients,  [\]  is  constant 
throughout  the  time.  At  time  step  j,  the  response  is  governed  by 


[m]{Z.}  +  [c]{Z.}  +  [\]{Z.}  -  (F.)  -  [K]{p.}.  (2-17) 

Again,  apply  the  central  difference  approximation, 

[m]({Z  }  -  2{Z  }  +  {Z  })  [c]({2  )  -  {Z  }) 

- 1±1 - - - 1 - I2l_  +  - HI - IZL-  +  [X]{z  .}  - 

At  2At  J 

-  {Fj}  -  [K]{Pj}.  (2-18) 

Solving  for  {Z^+j}  yields 

{Z.+1}  -  [A1]'1([A2HZ.}  +  [A3HZj_1}  +  At2{F.}  -  At2[K]{pjn  (2-19) 

where  [ A^ ] ,  [A2],  [ ]  are  the  constant  matrices  which  are  given  in  Equation 
(2-15).  Equation  (2-19)  represents  the  random  part  of  the  response  at  time 
step  j+1. 

T 

Let  {Zj+j}  denote  the  transpose  of  The  mean  square  response 

T  T 

measure,  E[ { Z } ( Z^ }  ],  can  then  be  established.  When  E[ { Z^+^ } { Z^+^ }  ] 

is  computed,  it  will  contain  the  terms  which  involve  the  product  of  { }  and 

{Zj},  {Zj_j},  etc.  However,  it  is  true  that  when  the  input  is  white  noise 

excitation,  the  force  at  time  t^  is  independent  of  the  displacement  response 

at  tj .  Therefore 


E[  {Fj  }  { Zj  }T  1  -  EHF.n  E[  {Zj  }T]  -  0. 


( 2-20a) 


i 


S' 


.V-  .  Tj  ’.<  v  v.v.v.v.  /.V. /.  /..VJ'.AV. r.  r/iAV.’AV: 


WTO'S 


Another  observation  is  that  the  force  at  time  t^  is  independent  of  the 
displacement  response  at  t^_^  if  the  excitation  is  a  sequence  of  independent 
and  independently  arriving  random  impulses  [33], 


E[{Fj]{Zj_1}T]  -  E({F.H  E[{Z._1}T]  -  0. 


( 2-20b) 


Further,  it  is  reasonable  to  assume  that  the  force  is  independent  of 
[K] ,  i.e., 


EnKH^HFj}1]  -  ElfKM^n  e[ {Fj }t]  -  0. 


(2-21) 


Using  Equations  (2-20)  and  (2-21),  it  can  be  shown  that 


E({z.+1}{zj+1]T]  -  [a1]"1([a2]e({z.Hz.]t]  [a2]t  + 

+  [A3lE[{Zj_1]{Zj_1}T][A3]T  +  At4E[{Fj}{Fj}T]  + 


+  At4E[[KHp.}{p.]T[K]T]  +  [A2]E[{Z.}[Z._1}T]  [A3]T  + 

+  [a3]e[{z._1][z.}t][a2]t  - 

-  At2E[[K]{jxj}{Zj]T][A2)T  - 

-  At2[A2]E[[Z.]{pj)T[K]T]  - 

-  At2E[[K][p.}[Z._1}T][A3}T  - 

-  At2[A3]EHZ..1}{p.}TlK]T])[A1]'T.  (2-22) 


T 

Note  that,  in  the  framework  of  a  recursive  solution,  E[{Zj](Z^.}  ]  and 

X 

E[{Zj  1  can  be  obtained  from  the  previous  one  and  two  steps  of 

T 

computation  if  the  current  analysis  evaluates  E[ [ Z ) { Z^ ]  ] .  Further, 

T  T 

the  expression  is  simplified  if  it  is  noted  that  [A^1e[{Z.  ^}{Z.)  ] [ A0 ]  , 


[A2  ]E{  {Zj }  {|ij  } 1  [K] 1  ] ,  and  { A3 ]E[  {Zj_^  } 1  [ K]^ ]  are  the  transposes  of 

[A2]E[{Z.}{Z._1}T](A3]T,  E[[KHp.HZ.}T][A2]T  and  E[  [  K]  { p  . }{ Z  .  _  l  }T  ]  [  A3  ]T , 
respectively . 

The  autocorrelation  function  of  the  given  excitation  E[{FjHEj}  ]  is 

T 

assumed  known  or  enumerable.  The  correlation  terms  E [  { Z ^  )■  { ], 
E[[K]{pj}{Zj}T],  ElUH^HZ^}1]  and  E[  [K]<p  }{*  }T[K]T]  must  be  evaluated 
in  order  to  compute  E( {Z^+^ } {Z^+^ }  }•  These  terms  involve  two  vector  or 
matrix  random  variables  and  are  accompanied  by  one  or  two  deterministic 
variables.  Some  special  techniques  must  be  provided  to  solve  for  these 
quantities.  In  the  next  several  sections  it  will  be  shown  how  these  terms 
can  be  treated  and  how  methods  for  their  evaluations  are  developed. 


2.3.2  Evaluation  of  E[  [KHp^  }  {jju  [K]^  ] 


T  T 

In  this  section,  it  will  be  shown  how  the  term,  E[ [ K] {p^ } {pu }  [K]  ]  can 

be  generated  in  the  step-by-step  solution.  The  E[  [ K ]  {jju  }  {p^ }  [K]  ]  is  an 

expectation  of  a  form  where  the  inner  variables  are  deterministic  and  the 

outer  variables  are  random.  The  general  form  of  this  type  of  problem  can  be 

T  T 

expressed  as  E[[K]{p}{q}  [K]  ]  where  [K]  is  the  random  matrix  under  consider 
ation  and  { p }  ,  { q }•  are  any  deterministic  column  vectors.  Let 
[A]  -  E[ [K]{p> {q>T(K]T]  ,  then 


E(K  .p.q  K  ]  •  p,q  E[K  ,K  ],  for  r,s  ■  1, 

rx  l^m  sm  riMm  ri  sra  ’ 


(2-23) 


where  A  denotes  the  element  in  the  r^  row  and  s**^  column  of  [Al.  The 
rs 

notation  used  here  is  the  indicial  notation,  i.e.,  any  repeated  index  means 


that  a  sum  is  executed  over  that  index. 


In  order  to  establish  the  correlations  between  stiffness  terms  it  is 


necessary  to  go  back  to  the  definition  of  the  stiffness  matrix.  Recall  from 
Equation  (2-2)  that  [k]  represents  the  random  stiffness  matrix.  Each  term 
in  the  stiffness  matrix*  of  a  structural  frame  is  a  function  of  the  cross 
sectional  dimension  of  frame  members,  the  member  length,  and  Young's 
modulus.  By  noting  this,  if  only  Young's  modulus  is  considered  as  random 
and  the  rest  of  variables  as  deterministic,  the  mathematical  expression  for 
k  .,  r,i  ■  1,  •••  N  then  can  be  written  as: 


kri  *  fI(E)  "  for  r>i  "  !.  N  (2-24) 

where  E  denotes  Young's  modulus  and  a  denotes  the  only  underlying  random 
variable  which  is  E.  It  is  important  to  note  that  [k]  represents  the  total 
stiffness  matrix  (mean  plus  random  components)  and  [ K ]  represents  the  random 
component  of  the  stiffness  matrix  (see  Equation  (2-2)). 

When  Taylor's  expansion  is  used.  Equation  (2-24)  can  be  expanded  about 
the  mean  of  its  underlying  random  variable,  i.e., 


where  o  denotes  the  standard  deviation  of  a.  Furthermore,  if  we  postulate 
a  ’  r 

that  aa  “  8  E[a]  where  B  is  the  constant  coefficient  of  variation,  Equation 
(2-23)  can  be  simplified, 


E(K  . p . q  K  ]  ■  B"\  . p . q  V  , 
riira  sm  nim  sm 


(2-27) 


where  [X]  is  defined  in  Equation  (2-2)  and  B  is  the  coefficient  of  variation 
of  Young's  modulus.  Equation  (2-27)  provides  a  general  and  simple  solution 
when  two  random  matrices  are  separated  by  any  constant  matrix.  A  more 
complicated  form  can  be  established  in  the  same  way  when  two  or  more  random 
variables  are  included  in  Equation  (2-24). 


2.3.3  Evaluation  of  E[ [ K ] ] 


In  this  section,  the  term  E( [K] J {Z^ }  ]  is  discussed.  Development  of 
an  expression  for  this  term  is  a  problem  similar  to  the  one  discussed  in 
Section  2.3.2  because  the  outer  variables  are  random  and  the  inner  variable 
is  deterministic.  However,  [ K ]  is  negatively  correlated  with  { Z ^ }  and  a 
different  approach  to  the  solution  must  be  pursued.  Noted  that  the  middle 
variable,  {jju},  represents  the  mean  response  of  the  system  at  time  step  j  and 
is  a  known  quantity.  Recall  that  for  dynamic  response  analysis  of  a  linear 
multi-degree-of-f reedom  system,  a  sometimes  useful  representation  of  the 
displacement  is  provided  by  the  free  vibration  mode  shapes.  Any  displace¬ 
ment  vector,  {p}  ,  for  a  system  can  be  developed  by  superposing  suitable 


amplitudes  of  the  modes  of  vibration.  Let  {b^},  i  -  1,  •••  N  represent  the 


orthononnal  mode  shapes  of  a  system  which  satisfies  Equation  (2-3;  and 

i  ■  1,  •••  N  denote  the  corresponding  amplitudes  at  time  t  .  Then 
we  can  write 


V  •  ciJ),v  *  ♦  4J),v  ■  2  ciJ)(biK 


(2-28) 


where  the  superscript  (j)  denotes  the  jth  time  step.  It  is  noted  that 
c^\  i  •  1,  •••  N  are  time  dependent  and  if  we  choose  c^^  properly 
then  can  be  evaluated  precisely.  The  c^^  can  be  obtained  easily  by 

noting  that  {b^}  satisfies  the  orthogonality  relation  i.e., 


T  I1 

Ib  J  [m]  {b  }  -  \ 

r  3  lo 


if  r  ■  s 


(2-29) 


where  [m]  is  the  system  mass  matrix.  With  the  aid  of  Equation  (2-28),  an 


expression  for  c|J  can  be  developed. 


{ b  }  T  [  m  ]  { p . }  -  {b  }T[ra](^''  c!^{b.})  -  c^V 
r  j  r  /  j  xi  r 


for  r  ■  1 ,  • • •  N 


(2-30) 


The  above  equation  shows  how  the  modal  amplitudes  relate  to  the  mean 


response.  When  c^J  ,  i  ■  1,  •••  N  are  evaluated  in  Equation  (2-28), 


E[[KHn.HZ.}‘]  -  E[[K](  >  cVMb.JXZ.n 
J  J  LmJ  1  1  J 

i-1 


^  c!j)(E[[Kl{b.HZ.}T]). 


(2-31) 


{Z^}  can  be  developed  using  Equation  (2-19)  at  time  step  j.  Use  of  Equation 
(2-21)  leads  to  the  result: 


E[[K]{b.}{Z.}T]  «  (E[[K]{b.HZ._1}T][A2JT  ♦  E[[K](b.H2._2}T][A^  - 


-  At2E[[K]{b.Hpj}T[K]T])[A1]"T. 


(2-32) 


Terms  like  E[[K]{b^}{Zj  ^ ^ ]  and  E[ [ K ] { ^ ]  of  the  above  equation  can 

be  obtained  from  the  previous  two  steps  when  currently  computing 
T 

E[[K]{b^}{Zj}  ]•  The  last  term  on  the  right  hand  side  of  the  above  equation 

possesses  the  same  form  as  that  developed  in  Section  2.2.1.  Equation  (2-32) 

j 

then  provides  a  means  for  expressing  E[ [ K ] { y ^ } { Z ^ }  ].  It  is  noted  that 
Equations  (2-31)  and  (2-32)  also  provide  E[  [ K ]  ( vr  H Z } T ]  when  Equation 
( 2-28)  is  used. 


2.3.4  Evaluation  of  E({Z^HZ^  ] 


In  this  section,  the  term,  E[{Zj}(Zj  ],  is  discussed.  If  { Z^ }  is 
replaced  with  the  expression  shown  in  Equation  (2-19)  at  time  t  ^  ,  another 
recurrence  relationship  will  be  obtained.  Again,  with  the  aid  of  Equation 
(2-21),  it  '•an  be  shown  that, 


EUZ.HZ.^}1]  -  [A1]“1([A2]E[{Zj_1}{Zj_1}T]  + 


+  [A3]E[{Z._1}{Zj_2}T]T  -  At2E[[K]{Kj_1HZ._1}T]). 


(2-33) 


Several  observations  are  made  regarding  the  above  equation.  The  first 

term  on  the  right  hand  side  is  known  if,  for  example,  at  time  t^  +  ^  the  term 
T 

E[  +  3  )■  {Zj  +  3  y  ]  is  computed.  The  second  term  on  the  right  hand  side  can  be 

obtained  from  the  previous  computation  if  E[{Z^}{Z^  ]  is  computed  in  the 

present  step.  The  last  term  possesses  the  same  form  as  was  discussed  in 
Section  2.3.3.  Therefore,  Equation  (2-33)  provides  the  expression  for 
E[{Zj}{Zj_^}  ]  and  all  its  component  parts  can  be  computed. 

2.4  SUMMARY 


The  techniques  described  in  Sections  2.3.2,  2.3.3  ,  2.3.4  provide 
enough  information  to  evaluate  Equation  (2-22).  As  stated  before,  {Z^} 
itself  is  a  zero  mean  random  process.  The  mean  square  response,  together 
with  the  deterministic  response,  characterizes  the  statistical  properties  of 
the  response  random  process.  Furthermore,  if  the  probability  distribution 
is  assumed  to  be  Gaussian,  the  first  and  second  moments  computed  above 
completely  characterize  the  random  process.  Hence,  the  probabilistic 
description  of  the  random  system  is  established. 


Chapter  3 


NONLINEAR  SYSTEM 

3.1  INTRODUCTION 

It  was  shown  in  Chapter  2  that  the  linear  random  differential  equation 
with  random  coefficient  can  be  separated  into  two  parts,  the  deterministic 
part  .rnd  the  random  part.  Equations  (2-8)  and  (2-10)  were  established  to 
approximately  define  the  model.  The  mean  square  response  then  was  evaluated 
as  Equation  (2-22). 

In  this  Chapter  a  technique  is  developed  to  compute  the  mean  and  mean 
square  response  of  nonlinear  structures.  In  this  investigation  it  is 
assumed  that  only  the  stiffness  matrix  behaves  nonlinearly.  Specifically, 
the  elasto-plastic  property  is  assumed  to  govern  material  behavior.  The 
type  of  system  to  be  considered  is  a  structural  framework.  For  such  a 
system  the  stiffness  matrix  is  time  dependent  and  is  related  to  the  dis¬ 
placement  response  time  history.  For  this  reason  it  is  necessary  to  combine 
the  stiffness  matrix  and  displacement  response  to  a  vector  which  represents 
restoring  forces,  or  internal  forces.  However,  the  displacement  dependent 
stiffness  matrix  still  needs  to  be  evaluated  in  order  to  compute  the  mean 
square  responses. 

The  technique  for  analyzing  the  nonlinear  system  is  similar  to  linear 
problem  because  only  the  stiffness  terra  needs  to  be  reconsidered  There¬ 
fore,  Equations  like  (2-8)  and  (2-10)  still  can  be  used  at  each  step  to 
evaluate  the  mean  and  mean  square  responses.  Some  modif ications  are  neces¬ 
sary.  In  the  next  section,  the  model  of  the  nonlinear  system  is  discussed. 


3.2  NONLINEAR  MODEL 


The  stiffness  matrix  in  Equation  (2-1)  characterizes  the  restoring 
force  of  a  structural  framework.  The  stiffness  matrix  is  formed  by  assem¬ 
bling  the  stiffness  of  individual  beam  elements  relating  element  stiffness 
terms  to  specific  elements  in  the  global  stiffness  matrix.  A  beam  element 
with  specific  deformations  at  each  degree-of-f reedom  (DOF)  is  shown  in 
Figure  3.1 


Figure  3.1  Typical  beam  element 

where  x.  ,  y.,  0,  are  the  axial,  vertical  and  rotational  deformations  at 
A  JA  A 

point  A  and  P  ,  V  ,  M  are  the  corresponding  nodal  forces.  (The  quantities 
AAA 

at  end  B  are  defined  similarly.)  The  relationships  among  the  deformations 
and  forces  can  be  easily  obtained  when  the  stress  and  strain  in  the  beam 
remain  linear.  However,  when  plastic  response  is  allowed  to  occur,  the 
linear  theory  no  longer  holds.  In  the  present  study  the  material  response 
is  assumed  to  be  elasto-plastic .  The  relationship  among  nodal  forces  and 


deformations  that  accounts  for  this  must  be  established.  Before  these 


relationships  can  be  established,  some  preliminary  theories  must  first  be 
discussed. 

First,  the  beam  equation  for  an  inelastic  element  will  be  derived. 
Consider  a  small  length  dx  cut  from  a  beam 


Figure  3.2  Small  length  cut  from  a  beam 

where  w  is  the  external  load.  If  the  inertia  effect  of  beam  is  neglected 
for  the  stiffness  only,  the  equilibrium  equations  are  to  be  satisfied,  that 
is 

V  -  wdx  ■  V  +  dV,  (3-1) 

M  +  dM  -  M  +  Vdx  -  0. 

Therefore , 


dV 

dx 


-w, 


w . 


(3-2) 


Equation  (3-2)  shows  that  the  equilibrium  equations  for  the  deflection  curve 
of  a  beam  are  the  same  regardless  of  whether  or  not  the  response  is  plastic. 


Another  important  property  which  is  not  affected  by  the  presence  of 
plasticity  is  the  relationship  between  strain  and  curvature  since  it  relates 
to  the  geometry  only, 

eb(x,z)  -  <z .  (3-3) 

The  is  the  bending  strain  in  the  beam  at  a  point  whose  coordinates 

are  x  and  z.  The  coordinate  x  is  shown  in  Figure  3.1.  The  coordinate  z  is 
the  vertical  distance  from  the  neutral  axis.  The  strain  is  assumed  to  be 
constant  across  the  width  of  the  beam  element.  The  r  represents  the  curva¬ 
ture  of  the  neutral  axis  at  point  x. 

Using  the  above  notation  it  is  possible  to  establish  the  relationships 
among  nodal  deformations  and  forces.  First,  the  material  under  consider¬ 
ation  shall  satisfy  the  Prandtl-Reuss  relationship.  A  typical  stress  strain 
curve  for  such  material  is  shown  in  Figure  3.3. 

If  and  denote  the  yield  stress  and  strain  respectively  then 

Young's  modulus  is  defined  by  E  -  Any  strain  larger  than  will 

force  the  material  to  experience  permanent  set  which  is  defined  by 

e  ■  e  -  e  .  The  c  represents  the  permanent  sets  in  the  loaded  material, 
o  y  o 

Before  the  elasto-plastic  model  can  be  used  to  analyze  the  stress  and 
strain  in  a  beam  during  a  dynamic  analysis,  several  problems  must  first  be 
discussed.  From  Figure  3.1  it  may  be  seen  that  any  bar  under  consideration 
can  be  subjected  to  the  simultaneous  action  of  bending  loads  and  axial 
forces.  To  understand  how  these  operate  simultaneously,  consider  the  fol¬ 
lowing  figures  which  can  represent  the  strain  and  stress  distribution  at  any 


section  in  the  bar. 


In  Figure  3.4,  e^,  are  the  strain  due  to  bending  and  axial  forces 

respectively.  The  total  strain,  e  ,  is  the  superposition  of  e,  and  e  , 

t  b  a 

hence,  we  can  write  e,  +  c  ■  e  .  This  strain  is  shown  in  Figure  3.4(c). 

bat 

Figure  3.4(d)  is  the  corresponding  stress  distribution  (after  possibly 
several  load  and  response  cycles).  Note  that  the  stress  is  not  linear  in  z 
because  the  material  has  been  in  plastic  state  and  undergone  permanent  sets 
as  shown  in  Figure  3.3.  The  permanent  sets  in  the  beam  occur  arbitrarily  and 
the  reason  for  this  will  be  discussed  in  the  next  section.  The  total  stress 
<*t(x,z)  for  an  elastic-perf ectly  plastic  material  can  be  expressed  as: 


a _  ■  E(e  (x)  +  e,  (x,z)  -  e  (x,z)), 
tab  o 


(3-4) 


where  £q(x,z)  is  the  permanent  set  at  x-section  and  z  fibre  position.  A 
symmetric  I-beam,  shown  in  Figure  3.5,  is  illustrated  for  analysis. 


Figure  3.5  Cross  section  of  an  I-beam 


Let  the  total  load  at  x-section  be  resolved  into  an  axial  force  P  act  at  the 
neutral  axis  and  a  bending  moment  M(x).  Then  the  moment  for  this  section 


can  be  evaluated  by 


M(x)  ■  /  a  w(z)zdz, 
JA 


(3-5) 


where  w(z)  is  the  width  of  the  beam  at  z.  When  a  is  replaced  by  (3-4), 


M(x)  ■  E  /  (e  (x)  +  e,  (x,z)  -  e  (x,z))  w(z)zdz. 


Equation  (3-3)  can  be  used  to  simplify  to 


eb(x,z)  -  zeb(x,c)/c. 


where  e,(x,c)  stands  for  the  strain  at  upper  fiber.  By  noting  that 

D 

/  e  (x)w(z)zdz  *  0,  Equation  (3-6)  then  can  be  reduced  to 

J  A  21 


(3-6) 


(3-7) 


M(x)  *  -  e,  (x 
c  b 


, c )  j  z^w(z)dz  -  E  j  tQ(x, 
eb(x,c)  * c 

El  -  -  E  /  e  ( x,  z)zw(  z)dz  , 

C  J-r  0 


z)zw( z)dz 


f  2 

where  I  «  /  z  w(z)dz.  When  deflections  in  the  beam  are  small,  t^/c  =  y  , 

»  A 


therefore,  the  moment  is 


M( x )  -  Ely"  -  E  /  £q(x, z)zw( z )dz , 

J  —  r* 


(3-8) 


Note  that  if  e  (x,z)  is  zero  the  above  equation  reduces  to  a  linear  system, 
o 

as  it  should.  Rearranging  Equation  (3-8)  yields 


Ely"  -  M(x)  ♦  E  I  e  (x,z)zw(z)dz 

J  o 


(3-9) 


,y 


B 
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Using  Equation  (3-2)  a  fourth  order  beam  equation  can  be  developed, 


fc  32e  (x,z) 

Ely""  *  w  +  E  /  - ^ -  zw(z)dz, 

J  3x 

-c 


In  the  present  analysis  of  frame  structures  it  can  always  be  assumed 


that  the  loads  act  at  nodal  points,  therefore,  we  can  let  w  »  0.  Therefore, 


Ely"’  -  E 


/C  3eQ(x,z) 
_r  ~ 


zw( z)dz  +  , 


(3-10) 


Ely  *  E  f  e  (x,z)zw(z)dz  +  C.x  +  C_, 
Jo  1  i 

J  -c 


(3-11) 


f  x  *•  c  1.2 

Ely'  ■  E  J  du  J  eq(u,z)zw(  z)dz  +  j’CjX  +  C2X  +  C3»  (3-12) 


Ely  ■  E  f  dv  [  du  f  t  (u,z)zw(z)dz  +  7  C.x 
JO  JO  J-r  °  61 


ro  •'o 


3  1  2 

+  ~  C.x  +  C-x  +•  C. . 
2  2  3  4 


(3-13) 


The  constant  C^,  i  ■  1,  •••  4  can  be  obtained  from  the  boundary  condition. 


these  are 


y ' (0)  -  eA,  y'(L)  -  efi, 


y(0)  -  yA, 


y(L)  -  yB. 


(3-14) 


Use  of  Equation  (3-14)  in  Equations  (3-11)  through  (3-13)  results  in 


Cj  -  ( q  1 L/ 2  -  q,),  C2  “  ^2  (q^2  ~  ^L/6), 

L  L 


C3  “  EIV 


C4  “  EIV 


(3-15) 
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r 


ft 


ft 


where 


EI(0, 


-  V  - 


A/‘ 

■'0  ~c 


e  (u,2)zw(z)dz, 
o 


EI(yB  - 


V  - 


Elfl.L  - 
A 


f  dv  f  du  f 
J0  -0  •'-c 


e  (u,z)zw(z)dz. 
o 


After  the  constant  C^,  i  *  1,  •••  4  are  evaluated,  the  nodal  forces  can  be 
established. 

It  can  be  shown  that  the  moment  in  the  beam  is  linear  function  of  x  by 
substituting  Equation  (3-8)  into  Equation  (3-6). 


M(x)  =  CjX  +  Cy 

Using  Equation  (3-1), 


(3-16) 


V(x)  -  Cj.  (3-17) 

Equations  (3-16)  and  (3-17)  give  the  relationship  among  nodal  deformations 
and  nodal  forces.  In  other  words,  if  the  nodal  deformations  are  provided 
then  the  moments  and  vertical  shearing  forces  can  be  evaluated  from  Equa¬ 
tions  (3-16)  and  (3-17). 

Now  the  axial  forces  are  considered.  Note  that  the  axial  forces  also 
can  be  obtained  using  the  results  developed  above.  Referring  to  Figure  3.5, 


P 


L 


atw( z)dz . 


(3-18) 


30 


Again,  using  Equation  (3-4),  and  noting  the  /  e,  (x, z)w( z)dz  ■  0  and 

J  A  b 

/  w(z)dz  ■  A  where  A  is  the  cross  section  area,  we  have 
JA 


P  ■  Ee  (x)A  -  E  ft  (x,z)w(z)dz. 

3l  /  O 

"  — r* 


(3-19) 


Integrating  the  expression  over  the  length  yields  the  following  result. 

r  L  L  p  L  c 

/  Pdx  «EA  /  t  (x)dx-E  /  du  /  e  (u,z)w(z)dz. 

'o  a  ■'O  ■'-c  ° 


Let 


e  (x)dx 
o 


6  be  the  absolute  axial  deformation.  Then 


PL  -  EA6 


Therefore,  • 


P  - 


e  (u,z)w(z)dz. 
o 


(u,z)w(z)dz) . 


(3-20) 


(3-21) 


If  eQ(u,z)  is  zero,  the  above  equation  reduces  to  linear  result,  as  it 

should.  Note  that  e  (x)  is  not  a  constant  over  the  length  of  the  beam  since 

a 

the  permanent  sets  in  Equation  (3-19)  are  not  constant. 

Equations  (3-21),  (3-16)  and  (3-17)  provide  the  relationships  among  the 


nodal  deformations  and  forces.  At  this  point,  the  permanent  sets,  however, 
are  still  unknown.  In  order  to  evaluate  the  permanent  sets  an  iteration 
method  can  be  developed.  This  will  be  discussed  in  the  next  section. 


3.3  ITERATION  SCHEME  FOR  COMPUTATION  OF  MEAN  RESPONSE 


As  mentioned  in  the  previous  section  the  permanent  sets  must  be 
obtained  using  an  iteration  method  since  no  closed  form  solution  can  be 
established.  Before  considering  the  iteration  scheme,  a  property  of  the 
permanent  sets  is  considered.  It  was  stated  earlier  that  the  permanent  sets 
accumulate  arbitrarily.  As  an  example  consider  the  following  beam  cross 
section  and  stress-strain  curve. 


0 


Figure  3.6  Permanent-set  property 


Figure  3.6(a)  shows  a  typical  strain  curve  of  a  cross  section  with  bending 
only.  Points  A  and  B  represent  any  two  separate  points  with  strains  and 
e  ,  respectively.  Since  the  inputs  are  random,  the  strain  at  points  A  and  B 

D 

may  behave  randomly,  however,  still  possess  linear  relation  as  shown  in 

Figure  3.6(a)  if  only  bending  is  considered.  The  corresponding  positions  of 

c.  and  t _  in  the  stress-strain  curve  mav  exist  like  Figure  3.6(b).  At  a 
A  B 

specific  time,  if  e  and  eR  start  to  decrease,  the  strain  history  paths  of 


points  A  and  B  on  the  stress-strain  curve  will  be  different  as  shown  in 


Figure  3.6(b).  Therefore,  at  this  stage  points  A  and  B  will  possess  perma- 
A  B 

nent  sets  e  and  t  ,  respectively, 
o  o 

Furthermore,  if  the  strain  due  to  axial  force  is  added,  a  more  compli¬ 
cated  form  of  the  permanent  sets  will  emerge.  An  important  fact  is  that  the 
strain  due  to  bending  and  axial  forces  act  simultaneously.  The  permanent 
sets  in  the  beam  can  be  evaluated  only  when  the  two  quantities  discussed 
above  are  added.  According  to  the  above  statements,  we  conclude  that  the 
permanent  sets  in  the  beam  exist  in  an  arbitrary  form  and  can  be  evaluated 
only  from  the  total  strain  e^. 

Reconsider  now  the  equation  of  motion.  Recall  that  Equation  (2-8) 
approximately  represents  the  mean  response  of  a  linear  elastic  system.  For 
a  nonlinear  system,  as  discussed  in  the  previous  section,  the  equation  of 
motion  can  be  modified  by  replacing  the  restoring  force  term,  [\]{pK  in 
Equation  (2-8)  by  {R(p)}  which  is  the  restoring  force  of  the  nonlinear 
system.  The  equation  governing  the  mean  response  is 

[m]{ii}  +  [c]{p}  +  {R(y)}  -  (3-22) 


If  the  central  difference  method  is  used  to  solve  this  equation,  then  by 
means  of  Equation  (2-12),  the  displacements  at  time  tj+|  are  evaluated  using 
the  formula 


where 

that 


{p4  +  l}  “  1(2(m]{p^}  +  l  A^  ]  { Pj  _1 

( A^ ]  and  [ A^ ]  are  given  in  Equation 
the  displacement  responses  at  time  t 


}  +  At2({bjf  -  <R(i*  )}),  (3-23) 

(2-15).  The  above  equation  shows 
.  are  dependent  on  the  restoring 


forces  at  time  t^  only.  By  noting  this,  the  numerical  iteration  sequence 
can  be  written  as  follows: 

(1)  The  displacement  responses  at  time  t^+j  are  computed  from  Equation 

(3-23).  By  the  assumption  that  the  system  starts  at  rest,  {pQ} ,  {p  ^  and 

{R(p  )}  are  all  zero, 
o 

(2)  For  each  member,  the  nodal  displacements  can  be  obtained  from 
which  are  in  global  coordinates.  Hence,  the  coordinate  transforma¬ 
tion  is  required  in  order  to  obtain  the  deformations  of  each  member  in  local 
coordinates . 

(3)  At  the  beginning  of  time  t  j,  it  is  assumed  that  the  permanent 
sets  for  this  time  step  are  equal  to  the  permanent  sets  at  time  t^ .  After 
this  assumption  is  made,  terms  such  as  the  curvature  y"(x)  **  r(x)  and  the 
axial  strain  e^(x)  can  be  computed  from  Equations  (3-9)  and  (3-19): 


y"(  x) 


t  (x) 
a 


:1X  *  C2  „  *  f  , 

~ - *  I  J  eou' 


z)zw( z)dz , 


EA 


L 


—  (P  +  E  /  e  (x,z)w( z)dz) , 


(3-24) 


(3-25) 


where  and  C2  can  be  evaluated  from  Equation  (3-15)  and  P  can  be  evaluated 
from  Equation  (3-21).  The  e^x)  can  be  computed  from  y"(x)  using  Equation 
(3-3). 

(4)  By  means  of  Equation  (3-3),  the  total  strain  et(x),  0  £  x  <  L,  can 
then  be  computed  from  e  (x)  ■  t,(x)  +  e  (x). 
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(5)  Based  on  et(x)  new  permanent  sets  can  be  evaluated.  According  to 
the  new  permanent  sets,  new  estimates  of  y"(x),  Ea(x)  and  et(x)  can  be 
evaluated.  Steps  (3)  to  (5)  are  repeated  until  convergence  of  the  permanent 


sets  occurs. 


(6)  After  the  final  permanent  sets  are  obtained,  the  restoring  forces 


for  each  member  can  be  evaluated  by  Equations  (3-13),  (3-14)  and  (3-19). 
Accordingly,  the  global  restoring  forces  {R(y^+j)}  are  assembled  by  the 
restoring  forces  of  each  member.  Some  elementary  assembling  techniques  are 
required  to  form  global  restoring  forces  {R(p^+^)}. 

Some  modifications  must  be  made  in  connection  with  the  approximation 
that  requires  unchanged  neutral  axis,  as  stated  in  the  previous  section.  In 
some  cases  the  iteration  scheme  defined  above  will  not  converge  because  of 
the  requirement  that  the  neutral  axis  remain  unchanged.  Numerical  investi¬ 
gations  show  that  the  permanent  sets  computed  in  a  particular  iteration 
cycle  will  sometimes  converge,  and  then  alternate  between  two  modes  during 
the  iteration.  In  such  cases,  an  approximation  for  the  permanent  set  can  be 
established  by  averaging  the  two  modes.  Some  analyses  show  that  this 
approximation  yields  good  results. 


3.4  FORMULATION 


In  Chapter  2,  the  model  for  separating  a  random  differential  equation 
was  established  for  a  linear  system.  Equations  (2-8)  and  (2-10)  represent 
the  model.  In  the  previous  section  it  was  shown  that  the  mean  response  of  a 
nonlinear  system  can  be  established  by  substitution  of  the  nonlinear 
restoring  force  for  the  linear  restoring  force.  The  second  order  charac¬ 
teristics  of  the  nonlinear  response  must  now  be  established.  The  techniques 
for  treating  nonlinear  problems  are  nearly  the  same  as  for  linear  problems. 
However,  some  modifications  are  necessary  in  treating  the  stiffness  matrix. 
It  was  shown  in  the  previous  section  that  the  mean  response,  {y},  can  be 


represented  using  Equation  (3-22)  when  the  [X]{p}  term  is  replaced  by 
{R(p)},  the  restoring  forces  of  the  system.  Equation  (3-23)  then  provides 
the  solution  of  Equation  (3-22)  if  the  central  difference  approach  is  used. 

To  use  the  general  approach  of  Section  2.2  to  evaluate  the  mean  square 
characteristics  of  a  nonlinear  system,  two  things  are  necessary.  First,  it 
is  necessary  to  assume  that  during  a  single  response  computation  time  step 
the  nonlinear  system  behaves  approximately  as  a  linear  system.  The  reason 
for  this  is  that  the  second  order  characteristics  of  the  response  of  the 
nonlinear  system  will  be  computed  using  Equation  (2-22).  Second,  it  is 
necessary  to  evaluate  the  stiffness  characteristics  of  a  nonlinear  system  at 
each  time  step.  The  reason  is  that  the  stiffness  term  [X]  appears  in 
Equation  (2-22).  The  mean  displacement  terms  required  in  Equation  (2-22) 
are  established  as  described  above. 

The  equivalent  stiffness  matrix  [X]  of  this  system  must  be  provided  in 
order  to  carry  out  the  solution  of  Equation  (2-10).  This  can  be  done  if  the 
restoring  forces  of  the  system  are  known.  It  was  shown  in  previous  section 
that  the  restoring  forces  can  be  computed  when  the  displacements  and  the 
offsets  are  known.  Hence,  the  equivalent  stiffness  matrix  can  be  esta¬ 
blished.  Let  \  ,  s,m  *  1,  •••  N,  denote  the  elements  in  the  stiffness 

sm 

matrix.  Recall  that  X  is  defined  as  the  force  developed  at  degree  of 

sm 

freedom  s  due  to  a  unit  displacement  at  degree  of  freedom  ra  when  all  other 

degrees  of  freedom  are  fixed.  Let  denote  the  restoring  force  at  degree 

of  freedom  s.  The  functional  expression  for  Q  is 

s 


•  J  |  a  I 


■  |  j.l  1 


where  z^,  i  *  1 ,  •••  N,  are  the  structural  deformations  at  the  degrees  of 

freedom  i  and  h  is  a  function  of  these  deformations.  Then  \  can  be 

sm 

expressed  as 


(3-27) 


h(z1 , 


z  +  Az  +,  •••+z)-h(z.,***z  -  Az  +  ,  • • •  z„) 

m _ m  N  _ 1  ram  N 


The  above  formula  provides  the  general  expression  for  the  equivalent  stiff¬ 
ness  matrix  element  for  the  nonlinear  system.  Note  that  if  no  inelastic 
permanent  sets  are  allowed  in  the  beam,  then  h  is  a  linear  function  of  the 
z^,  i  *  1,  •••  N.  When  permanent  sets  occur  in  the  beam  then  h  is  a  compli 
cated  nonlinear  form  that  depends  on  the  displacement  history  of  the  struc¬ 
ture.  This  was  discussed  in  the  previous  section. 

It  is  observed  that  \  ,  s,m  *1,  •••  N  can  be  evaluated  column  by 

sm 

column  rather  than  element  by  element  if  Equation  (3-27)  is  used  since  the 
restoring  forces  are  calculated  in  global  form.  In  other  words,  the  restor¬ 
ing  forces  are  formed  in  such  a  way  that  all  elements  are  evaluated  in  a 

vector,  {R},  rather  than  a  single  element,  Q  .  Let  {\  }  denote  the  mt*1 

s  m 

column  in  the  equivalent  stiffness  matrix.  Then  Equation  (3-27)  can  be 
modified  to  yield 


<V  ■  ■ 

m 


z  +  Az  +  •  •  •  +  z..) }  -  ( H(  z . 
mm  N  1 


(3-28) 


z  -  Az  +  •  •  •  z,.)} 
ram  N 


where  {R}  ■  {H(z,,  •••  z,.)}  is  the  restoring  forces  vector. 
I  N 
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Another  important  property  is  that  the  equivalent  stiffness  matrix  is 


time  dependent  if  permanent  sets  occur  in  the  beam.  If  the  central  dif¬ 


ference  method  is  used,  the  stiffness  matrix  at  time  t^  is  evaluated  based 


on  the  displacement  responses  at  time  t  .  Equation  (3-28)  then  can  be  used 


to  establish  the  equivalent  stiffness  matrix  at  time  t  .  Once  this  is  done. 


Equation  (2-10),  which  characterizes  the  random  component  of  response,  can 


then  be  modified  to 


[ m ] { Z }  +  [ c ] { Z}  +  [\(p(t))]{Z}  -  {F}  — [ K ] {p} , 


(3-29) 


where  the  definitions  of  (\(p(t))]  and  [K]  are  the  same  as  before,  i.e.. 


[k(z(t))J  *  E([k(z(t))]j  +  [K]  -  [\(p(t))]  +  (K). 


(3-30) 


Note  that  the  random  component  of  stiffness  matrix  is  assumed  to  be  a  matrix 


random  variable.  Using  the  central  difference  method  Equation  (3-29)  can  be 


solved  for  Z.  ,,  such  that 
J  +  l 


{Zj+1}  -  [Aj]  ([A2  }{Z.\  +  [ A3] (Zj_1 >  +  Atfc({Fj}  -  [K](pj})),  (3-31) 


where  (A^ ]  and  [A^]  are  given  by  Equation  (2-15)  and  [A,  ]  is  given  by 

"j 


[ A 2  ]  -  2 ( m ]  -  (  \  .  ]At  . 

j  J 


( 3-32 ) 


Note  that  the  difference  between  Equations  (3-31)  and  (2-19)  is  that 


the  term  [ A2 ]  is  time  dependent  in  Equation  (3-31).  The  mean  square 
responses  can  then  be  obtained  in  a  manner  similar  to  that  used  in  Section 
2.3  where  Equation  (2-22)  was  used.  Here,  though,  [A?]  is  replaced  by 

[a2  ]. 

j 


El(zj+1Hzj+1}T]  - 

-  [A1f1(At4E[{F.}{Fj}T]  +  At4E[[K]{pj}{pj}T[K]T]  + 

+  [A2  ]E[{Z  }{Z  }T][A2  ]T  +  [A  ]E[{Z  }{Z  }T][A  ]T  + 

j  J  J  j  J  J 

+  [a2  ]e[{z  }{z  }t][a3]t  +  [a  ]e[{z  }{z.}t][a9  ]t  - 

-j  J  J  J  J  -j 

-  At2E[[K]{p  }{Z  }T][A0  ]T  -  At2[A7  ]E[{Z  )T[K]T]  - 

J  J  -j  j  J  J 

-  At2E[[K]{pj}{Zj_1}T][A3]T  - 

-  At2[A3]E({Zj_1}{pj}T[K]T])[Al]'T.  (3-33) 


Each  terra  shown  in  the  above  equation  can  be  solved  using  the  same  tech¬ 
niques  as  developed  in  Sections  2.3.2,  2.3.3  and  2.3.4  except  in  all  cases 
[A,]  is  replaced  by  [A2  ].  Equations  (3-23)  and  (3-33)  then  provide  the 

j 


1 
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Chapter  4 


AUTOCORRELATION  AND  CROSS  CORRELATION  OF  RESPONSE  MEASURES 


4.1  INTRODUCTION 


In  Chapter  2  the  techniques  of  establishing  the  mean  and  mean  square 


displacement  responses  for  a  linear  system  were  developed.  In  Chapter  3, 


the  case  of  the  nonlinear  system  was  discussed.  Note,  however,  that  only 


displacement  response  was  considered  in  these  chapters.  Sometimes,  it  is 


desirable  to  know  the  mean  characteristics  not  only  of  the  displacement 


terms,  but  also  of  the  velocity  and  acceleration  and  of  the  cross  terms  such 


as  the  products  between  displacements,  velocities,  and/or  accelerations. 


Moreover,  the  correlation  between  Z.  and  Z.  for  n  >  1  still  needs  to  be 

J  .1+n 


evaluated  when  the  response  autocorrelation  function  is  important.  In  this 


chapter,  the  moments  and  cross  moments,  as  described  above,  are  established. 


4.2  VELOCITY  AUTOCORRELATION 


In  this  section,  the  mean  and  mean  square  velocity  response  are  con¬ 


sidered.  Recall  that  the  mean  velocity  can  be  expressed  as  in  Equation 


( 2—  1 2b )  when  the  central  difference  method  is  used, 


{ H  j  >  *  +  )/(2At) 


j  *0,  1 ,  2 , 


( 2—1 2b ) 


where  {p^},  j  ■  0,  1,  2,  ••*,  is  the  mean  displacement  response  vector  at 
time  t ^ .  The  random  component  of  the  velocity  can  be  expressed  using  the 
same  expression: 


{V  “  +  '  <Zj-i>)/2At’  j  “  0.  2, 


(4-1) 


where  {V^},  j  “0,  1,  2,  represents  the  random  component  of  the  velo¬ 

city  response  vector  at  time  t ^ ,  and  (Z^K  j  *0,  1,  2,  •••,  represents  the 
random  component  of  the  displacement  response  vector  at  time  t  .  Accord¬ 
ingly,  the  mean  square  velocity  can  be  evaluated  by 


E[{vjHV  1 


*  e[(zj-iHzJ-i,Ti  ' 

j  -  0,  1,  2, 


(4-2) 


th  th  T 

The  element  in  the  r  row  and  s  column  of  ]  is  the  correlation 

between  the  velocity  at  time  t^  at  the  r^  degree  of  freedom  and  the  velo¬ 
city  at  time  t^  at  the  s*^  degree  of  freedom.  In  the  above  equation,  note 
that  E[ { Zj_j H }  1  is  the  transpose  of  E[ { Z^  + ^ } { Z^ }  ].  In  order  to 
evaluate  E[ ( Z }  j.  Equation  (2-19)  which  represents  the  expression 
of  {Zj+^}  in  terms  of  {Z^}  and  {Z^  must  be  used.  Postmultiplying  Equa- 

j 

tion  (2-19)  by  {Zj_^}  and  then  taking  the  expectation  of  the  result  yields 


E[{Z.  +  1HZ._1}T]  -  [A1]'1([A2)E[{ZjMZj_1}T]  ♦ 

+  lA3]El{Z..1}{Z._1}T]  -  At2E[[K]{pjMZj_1}T]) 


(4-3) 
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Each  term  in  the  above  equation  can  be  evaluated  by  using  the  techniques 
discussed  in  Section  2.3.3  and  2.3.4.  Accordingly,  Equation  (4-3)  is  solv¬ 
able.  The  other  terms  in  Equation  (4-2)  are  known.  Therefore,  the  mean 

T 

square  velocity  can  be  computed  immediately  when  E[ HZ^+^ }  ]  is 
evaluated. 

Note  that  for  nonlinear  systems,  the  equivalent  stiffness  matrix,  (\], 
and  the  coefficient  matrix  [ A2 ]  which  is  a  function  of  [\],  are  denoted  by 
[\.]  and  [A?  ],  respectively.  The  j  subscripts  reflect  the  fact  that  the 

J  "j 

stiffness  is  time  dependent.  Consequently,  for  the  case  of  nonlinear 
analysis,  [A^  ]  is  used  to  replace  [ A2  3  in  Equations  (4-2)  and  (4-3);  namely 

j 


EHZj  +  jMZj.jl1]  -  [A1]"1([A2  ]E[  {Zj  MZj.j  >T1  +  ( 4-3a) 

+  [A3]E({Z._1}{Z._1}T]  -  At2E[[K]{ii..MZj_1}T]. 

Equation  (4- 3a)  can  then  be  used  to  compute  the  nonlinear  mean  square 
velocity . 


4.3  ACCELEPAT I ON  AUTOCORRELATION 


In  this  section  the  mean  square  acceleration  is  discussed.  Using 
Equation  ( 2— 12a) ,  the  random  component  of  the  acceleration  at  time  t^  can  be 
expressed  as 


{A.}  -  (Uj  +  1}  -  2{Z  |  +  {Z.^n/At2,  j  -  0,  1,  2, 


(4-4) 


where  {A^}  represents  the  random  component  of  the  acceleration  response 
vector  at  time  t^ .  The  mean  square  acceleration  can  then  be  evaluated  as 


E[{AJ{AJT]  -  -^r  ( E  [  {Z .  . }  {Z .  .  }T]  ♦  4Et{Z}{Z}T]  + 


Tl  J1 


j+r  1  j+i1 


j  j 


+  E[{Z._1}{Z._1}T]  -  2E[{Zj+1}{Z.}TJ  -  2E[{Z.}{Z.+1}T]  - 


-  2E[{ZjHZj_1}T]  -  2E[{Zj_1}{Zj}T]  +  E[{Zj+1}{Zj_1}T]  + 


+  E[{zj_1}{zj+1rn 


J  -  0,  1,  2, 


(4-5) 


tli  tli  X 

The  element  in  the  r  row  and  s  column  of  E[{A^}{A^}  ]  is  the  correlation 


between  the  acceleration  at  time  t^  at  the  r  degree  of  freedom  and  the 
acceleration  at  time  t^  at  the  sfc^  degree  of  freedom.  Note  that 


E[  {Z^}  (Zj+1  }T] ,  EUZ^HZ/].  E[  {Zj  +  1>T]  are  the  transposes  of 


,{Z^.+1}{Z^}  ],  E({Zj}{Z^._1}  ],  E[  {Zj+j  ],  respectively.  The  terms 


E[  {ZJ  +  1>{ZJ>i]  and  E[{Zj}{  Zj_^}  ]  can  be  evaluated  by  using  the  techniques 


described  in  2.3.4.  The  term  E[{Z^+^}{Z^  ]  can  be  evaluated  by  using 


Equation  (4-3)  as  discussed  in  the  previous  section.  The  rest  of  the  terms 


X 

in  Equation  (4-5)  are  known  if  E(  {Z^  +  ^H2^  +  ^}  ]  is  currently  being 


evaluated.  Therefore,  the  mean  square  acceleration  at  time  t^  can  be  com¬ 


puted  immediately  after  E[ {Z^ } { Z^+^ }  ]  is  computed. 


For  the  case  of  nonlinear  analysis,  the  acceleration  response  moments 


can  be  evaluated  in  a  manner  similar  to  the  mean  square  velocity  discussed 


in  the  previous  section.  Hence,  use  of  [A£  ]  to  replace  [ A2 ]  is  necessary 

j 

for  nonlinear  problems. 


4.4  VELOCITY  AND  DISPLACEMENT  CROSSMOMENTS 


In  this  section,  the  covariance  between  velocity  and  displacement  is 


considered.  The  covariance  between  velocity  and  displacement  can  be 


obtained  easily  if  Equation  (4-1)  is  used.  Postmultiply  Equation  (4-1)  by 
T 

{Zj}  then  take  the  expectation  to  obtain 


ife  <El)ViHzi>T]  '  eI(ViMzj,I)>- 


(4-6) 


The  element  in  the  r  row  and  s  column  of  E[{V.}{Z.}  ]  is  the  correlation 

fch 

between  the  velocity  at  time  t^  at  the  r  degree  of  freedom  and  the  dis¬ 
placement  at  time  t^  at  the  s*"*1  degree  of  freedom.  Each  term  of  the  above 
equation  can  be  evaluated  by  using  the  technhiques  discussed  in  2.3.4. 

Since  the  random  processes  and  {Z  }  are  both  zero  mean.  Equation  (4-6) 

actually  represents  the  cross  covariance  between  velocity  and  displacement 
at  time  t ^ .  If  the  cross  covariance  between  velocity  and  displacement  of 

the  nonlinear  response  are  desired,  then  the  expressions  for  {V.}  and  {Z.} 

1  J 

that  reflect  the  nonlinear  response  variation  must  be  used. 

Note  that  {V^}  is  the  derivative  of  {Z^ } .  Theoretically,  it  can  be 
shown  that  {V(t)}  and  {Z(t)}  are  orthogonal  when  evaluated  at  the  same  time 
if  (Z(t)}  is  weakly  stationary.  To  prove  this,  let  x(t)  be  a  weakly 


stationary  random  process.  Consider  the  following  partial  derivative. 


E[ x( t)x( t+T ) ] 


tr/_ 


S  (w)e1WTdu> 
XX 


(iu>)S  (io)elu>Tdw, 

XX 


where  Sxx(w)  is  the  spectral  density  of  x(t).  This  representation  is  valid 
since  it  is  assumed  that  x(t)  is  weakly  stationary.  Also,  it  is  assumed 
that  x(t)  is  differentiable  in  a  mean  square  sense.  The  left  hand  side  of 
the  above  equation  can  be  simplified  by  rewriting  the  expression, 


3~'(  E(x(  t)x(  t+-t)  ]  -  E[x(t)x( t+r) ] 


By  letting  t-*0, 


E(x(t)x(t)]  *  i  f  a>Sxx(w)d«  -  0. 

*  —A 


The  right  side  is  zero  since  S  (w)  is  an  even  function. 

xx 


Now  consider  Equation  (4-6).  If  {Z(t)}  is  weakly  stationary,  the  right 


hand  side  of  Equation  (4-6)  vanishes,  because  E[{Z^+^}{Zj}  ]  and 


T  T 

E[{Zj_jHZj}  ]  are  equal.  Therefore,  E[{V^HZj}  i  ■  0  and  the  orthogonality 


property  is  satisfied  for  the  computed  response.  Consequently,  the  central 


difference  assumption  used  in  this  study  leads  to  an  orthogonality  condition 


that  matches  the  orthogonality  condition  which  occurs  in  a  theoretical 


weakly  stationary  random  process.  Note  that  this  is  true  even  for  a  non¬ 


linear  system. 


4.5  ACCELERATION  AND  DISPLACEMENT  CROSSMOMENTS 


In  this  section  the  covariance  between  the  acceleration  and  displace¬ 


ment  response  measures  is  discussed.  The  approach  is  the  same  as  described 


in  the  previous  section.  If  Equation  (4-4)  is  used  to  replace  {A^}  which 


represents  the  random  component  of  acceleration,  we  have 


EHAjHZj}1]  -  —  (E[{z.+1Hz,}T]  -  ZEHZjHz.}1]  + 


+  E[{Z,}'Z,_1}i]). 


(4-8) 


^  h  t  h  X 

The  element  in  the  r  row  and  s  column  of  E[{A^}{Z^  ]  is  the  correlation 

between  the  acceleration  at  time  t^  at  the  rC^  degree  of  freedom  and  the 

displacement  at  time  t^  at  the  s^  degree  of  freedom.  Each  term  of  the 

above  equation  possesses  the  same  form  as  discussed  before.  Hence,  by  using 

T 

techniques  as  described  in  Section  2.3.4  and  Equation  (4-3),  E[{A^}{Z^}  ) 
can  be  computed  easily.  Again,  since  the  random  processes  {A^}  and  {Z^ }  are 
both  mean  zero,  Equation  (4-8)  represents  the  covariance  of  acceleration  and 
displacement  at  time  t ^ .  It  is  clear  that,  using  an  approach  similar  to 
previous  section,  Equation  (4-8)  can  be  used  to  represent  the  solution 
either  for  the  linear  or  the  nonlinear  system. 


4.6  ACCELERATION  AND  VELOCITY  CROSSMOMENTS 


In  this  section,  the  covariance  between  acceleration  and  velocity  is 
discussed.  By  using  the  same  approach  as  in  Section  4.5,  the  covariance 
between  acceleration  and  velocity  can  be  obtained  immediately.  If  Equations 
(4-1)  and  (4-4)  are  used  then 


El(AjHVT|  '  ^3  - 


2E[{Zj}{Z.  +  1}T]  +  2EnZj}{Z._1)T]  +  E[{Z._1HZj  +  1}T] 


-  E[{z._1Mzj_l}  ])• 


(4-9) 


t  h  t  h  T 

The  element  in  the  r  row  and  s  co  lumn  of  E[{AjHVj}  ]  is  the  correlation 
between  the  acceleration  at  time  t^  at  the  rt^1  degree  of  freedom  and  the 
velocity  at  time  t^  at  the  s  degree  of  freedom.  Note  that 


E(  {Z^  +  ^}  ]  is  the  transpose  of  EUZ^^HZ^  ]  which  can  be  evaluated 

by  using  Equation  (4-3).  The  terms  E[{Z^.}-{Z^  and  E[  {Z^  }{Zj  +  j  can  be 

evaluated  by  using  the  techniques  discussed  in  Section  2.3.4.  Therefore, 
the  covariance  of  acceleration  and  velocity  can  be  computed  immediately 
after  E[  {Z^  +  1HZj+1}T]  is  known. 

It  is  already  proved  in  Section  4.4  that  a  weakly  stationary  random 
process  is  orthogonal  to  its  derivative  when  evaluated  at  the  same  time. 

This  property  can  also  be  seen  from  Equation  (4-9)  if  {Z(t)}  is  weakly 
stationary  since  the  right  hand  side  of  Equation  (4-9)  vanishes  under  weakly 
stationary  conditions.  Consequently,  the  central  difference  assumption 
satisfies  the  orthogonality  condition  for  the  acceleration  and  velocity. 

This  is  true  even  for  the  nonlinear  problem. 


4.7  THREE  OR  MORE  TIME  INCREMENTS 


It  was  mentioned  earlier  that  sometimes  it  is  important  to  evaluate  the 

term  E[{Z^+n}{Z^}  ] ,  n  >  1 ,  in  order  to  obtain  the  displacement  response 

autocorrelation  functions.  This  expression  was  established  in  several 

previous  sections  for,  specifically,  n  ■  1,  2.  However,  for  the  case  n  >  3, 

the  problem  still  can  be  solved.  To  do  this,  {Z.  }  must  be  expressed  in 

j+n 

terms  of  the  displacement  response  at  previous  times.  For  example,  consider 
a  linear  system  {Z^+n}  can  generally  be  expressed  as: 


'  lAll"1([A21(Zj+„-l)  *  [A31(Zj.n-2>  *  4t2tlW  - 


(4-10) 


When  this  expression  is  postmultiplied  by  {Z^}  and  t^'e  expected  value  is 
taken,  the  result  is 

E[{Zj+n}{Zj}T]  -  [A1]'1([A2]E[{Zj+n-1}{Zj}T]  +  (4-11) 

+  [A3]E[{Z.+n_2}{Z.}T]  -  At^llKHiij^HZj}1]). 

T  T 

Note  that  E[{F.  ,}{Z.}  J  vanishes  since  {F.  ,}  is  independent  of  {Z.} 

J+n-1  j  J+n-1  r  J 

T 

and  both  are  zero  mean.  The  terms  in  (4-11)  like  E[(Z.  ,}{Z.}  ]  and 

j+n-1  j 

T 

E[{Z,  „ } { Z  .  V  ]  can  be  reduced  further  to  terms  involving  the  crossmoments 

J+n  -  J 

E[{  Z .  -}{Z.}T],  E[{Z.  „HZ.}T]  and  E[{Z.  .  >  {Z  .  >T  ]  -  The  reduction  can 

J+n-z  j  J+n- 3  j  j+n-4  j 

T  T 

be  continued  until  only  the  terms  E(  {Z^,}  {Z^ }  j,  E[{Zj  +  ^HZ  }  ]  and 
E[{Zj}{Z^}  ]  appear  in  the  expression.  Then  the  crossmoment  E[  { Z  {Z^ }  ] 

can  be  evaluated.  Obviously,  it  will  take  more  computational  time  and  large 
storage  capacity  to  obtain  the  results,  especially  when  n  is  large. 

An  important  property  which  might  be  of  interest  is  whether  the 
response  is  weakly  stationary.  This  can  be  determined  using  Equation 
(4-11).  A  random  process  is  said  to  be  weakly  stationary  if  its  mean  is 
constant  and  its  autocovariance  function  depends  only  on  the  time  lag 
between  response  variables  considered.  In  terms  of  Equation  ( 4— 11)  this 
means  that  if 


sUz.^llZj)1]  -  ai^iiv1], 


(4-12) 


for  all  j  and  k  and  for  arbitrary  n  then  the  second  part  of  the  above 


requirement  is  satisfied.  If,  in  addition,  E[{ZjH  is  a  constant,  then  the 
random  process  {Z^.}  is  weakly  stationary. 


Clearly,  the  requirements  set  forth  here  can  never  be  exactly  satisfied 
because  the  random  process  has  deterministic  initial  conditions.  However, 
when  j  become  large  the  requirement  in  Equation  (4-12)  may  be  approximately 
satisfied  for  n  <<  j.  In  such  a  situation  the  random  process  is  said  to 
approach  a  weakly  stationary  state. 


Chapter  5 


ENERGY  DISSIPATION  AND  DAMAGE  DIAGNOSIS 

5.1  INTRODUCTION 

There  are  two  types  of  structural  failure  which  are  the  result  of  the 

dynamic  response  of  a  stable  structure.  The  first  type  of  structural 

failure  occurs  when  an  extreme  value  of  some  measures  of  structural 

response,  such  as  z(t)  or  z(t)  ,  reaches  an  upper  bound  level  or  a 

max  max 

lower  bound  level.  The  second  type  of  structural  failure  occurs  when  the 
accumulated  damage  reaches  a  fixed  level  such  that  the  structure  diminishes 
in  strength  or  resistance  and  a  response  that  causes  failure  is  realized. 

In  many  situations,  the  accumulated  damage  may  lead  to  structural  failure 
even  when  the  input  and  response  are  of  short  duration.  In  a  practical 
sense,  the  true  criterion  of  structural  failure  may  depend  on  both  peak 
response  and  damage  accumulation.  However,  at  the  present  time  there  exists 
no  universal  measure  of  structural  damage.  Consequently,  a  postulated  upper 
or  lower  bound  for  extreme  responses,  or  a  fixed  level  for  accumulated 
damage  is  used  in  many  applications. 

Many  studies  [3,  34,  35]  have  considered  the  potential  for  the  first 
type  failure  described  above  by  using  the  threshold-crossing  and  the  peak- 
distribution  to  establish  the  reliability  of  structural  systems.  It  can  be 
shown  that  the  techniques  discussed  in  Chapters  2  through  4  can  be  used  to 
develop  the  joint  probability  for  displacement  and  velocity  so  that  the 
first  passage  problem  can  be  solved.  In  the  present  study,  only  the  second 
type  of  structural  failure  is  considered.  The  cyclic  damage  may  be  defined 


by  the  cyclic  permanent  seta  such  as  Miner  [36],  Coffin  [37],  and  Ju  and  Yao 
[38],  or  the  cyclic  energy  dissipation  [39].  The  criterion  in  the  present 
chapter  postulates  that  the  accumulated  damage  i3  related  to  the  energy 
dissipation  in  the  system  during  the  response. 

*5.2  ENERGY  DISSIPATED  RELATED  TO  DAMAGE ' PROBLEMS 

Experimental  investigations  [34]  have  shown  that  the  energy  dissipated 
by  a  structural  system  due  to  load  cycling  is  related  to  the  residual 
strength  of  the  structural  material.  The  energy  dissipation  may  be  classi¬ 
fied  in  two  parts,  namely,  energy  dissipated  in  the  spring  and  energy  dissi¬ 
pated  in  the  damper.  For  a  linear  system,  energy  dissipation  occurs  only  in 
the  damping  element  because  no  energy  is  dissipated  by  the  spring.  However, 
in  many  situations,  when  the  spring  behaves  nonlinearly,  a  hysteresis  loop 
is  formed  in  the  material  stress-strain  curve  during  the  response  motion. 

The  energy  dissipated  in  the  spring  can  then  be  defined  by  integrating  the 
stress-strain  curve. 

Consider  a  single  element  system  with  uniaxial  load.  The  total  energy 
dissipated  in  the  system  can  then  be  expressed 

r00 

E  "I  [cz  +  R(z)]dz,  (5-1) 

J0 

where  z  is  the  displacement  response  across  the  element,  c  is  the  element 
viscous  damping  and  R(z)  represents  the  restoring  force  in  the  element 
spring.  First,  consider  the  energy  dissipated  in  the  spring.  If  the 
single-element  system  referred  to  Equation  (5-1)  is  assumed  to  represent  a 


small  element  in  a  beam  of  a  structural  frame,  the  energy  dissipated  for 
this  small  element  due  to  material  nonlinearity  can  be  expressed  as 


E  -  AV  /  R(e)de, 
3  Jr, 


(5-2) 


where  AV  is  the  volume  of  the  small  element  in  a  beam  under  consideration. 


Note  that  R( e )  can  be  expressed  by  (see  Figure  3.3) 


R(e)  «  E(e(t)  -  e  ( t ) ) , 
o 


(5-3) 


where  E  is  Young's  Modulus  and  t(t),  e  (t)  are  the  total  strain  and  pertna- 

o 


nent  sets  at  time  t,  respectively.  Substitution  of  Equation  (5-3)  into 


Equation  (5-2)  yields 


E  -  AV  E  /  (e(t)  -  e  (t))de. 

s  Jrs  o 


(5-4) 


Equation  (5-4)  deterministically  defines  the  energy  dissipation  for  a  small 


element  in  a  beam. 


In  the  present  study,  the  governing  equation  of  motion  of  a  nonlinear 


system  is  decomposed  into  two  equations,  namely  Equations  (3-22)  and  (3-29), 


(iU  +  E c ]  { pi >  +  {R( p) }  -  {<*>} , 


(3-22) 


(m]{Z}  +  [  c ] { Z}  +  [\(.  p(  t) )  ]  {Z}  -  <F}  -  [k]{p} 


(3-29) 


._%v 


It  will  be  illustrated  in  Chapter  7,  that  Equation  (3-22)  governs  the  mean 
to  within  99  percent  accuracy  and  Equation  (3-29)  characterizes  the  random 
component  of  the  response  within  93  percent  accuracy.  Let  the  total  energy 
dissipation  be  decomposed  into  a  mean  and  a  fluctuating  portion.  The  mean 
energy  dissipation  due  to  the  material  nonlinearity  can  then  be  evaluated 
based  on  Equation  (3-22)  which  represents  the  mean  characteristics  of  the 
response.  The  energy  dissipation  obtained  from  Equation  (3-29)  then  repre¬ 
sents  the  fluctuating  portion  of  energy  dissipation. 

However,  note  that  the  Equations  (3-22)  and  (3-29)  are  derived  in  such 
a  way  that  the  displacement,  velocity  and  acceleration  responses  are  repre¬ 
sented  only  at  the  nodal  points  of  the  structure.  In  the  present  analysis 
of  a  structural  frame  system,  the  energy  dissipation  is  computed  along  the 
beam  rather  than  at  the  nodal  points.  Consequently,  the  fluctuation  of 
energy  dissipation  can  not  be  obtained  directly  from  Equation  (3-29)  which 
governs  the  random  component  of  the  response.  Therefore,  in  the  present 
investigation,  only  the  energy  dissipation  related  to  the  mean  response  is 
considered.  The  energy  dissipation,  as  computed  from  Equation  (3-22), 
represents  the  mean  energy  dissipation.  When  Equation  (5-4)  is  used  to 
compute  the  mean  energy  dissipation  for  a  small  element  in  a  beam,  the  total 
energy  dissipation  for  a  beam  due  to  material  nonlinearity  can  be  obtained 
by  summing  up  all  the  small  elements.  This  can  be  stated  mathematically  in 
the  following  form. 


where  Ev  is  the  total  energy  dissipated  in  a  beam.  Equation  (5-5)  can  be 
used  as  a  measure  of  energy  dissipation  in  a  beam  due  to  material  non¬ 
linearity. 

Next,  consider  the  energy  dissipated  due  to  damping.  Let  E^  denote  the 
energy  dissipated  due  to  viscous  damping  in  a  single  element, 


Use  has  been  made  of  the  fact  that  y.  is  deterministic  and  Z  is  mean  zero. 
The  mean  energy  dissipated  in  the  damper  is  clearly  separated  into  two 
parts.  The  first  term  on  the  right  side  in  Equation  (5-10)  represents  the 
energy  dissipation  from  mean  velocity  respopnse,  the  second  term  represents 
the  energy  dissipation  from  the  variance  of  the  velocity  response.  Note 
that  the  velocity  autocorrelation  of  the  response  was  developed  in  Section 


The  mean  energy  dissipated  in  each  element  can  be  obtained  using 
Equation  (5-10).  When  the  energy  dissipation  components  are  summed  the 
total  energy  dissipated  due  to  damping  is  obtained.  The  total  mean  energy 
dissipated  in  the  beam  can  then  be  obtained  as 

E  -  E .  +  E  .  (5-11) 

t  a  s 

Equation  (5-11)  represents  the  mean  energy  dissipation  measure.  The  mean 
square  energy  dissipation  will  include  the  cross  term  between  spring  and 
damper,  and  the  square  terms  of  spring  and  damper.  However,  as  stated 
before,  the  Equation  (3-29)  can  not  be  used  to  obtain  the  random  component 
of  the  energy  dissipation.  The  cross  moments  between  damper  and  spring 
would  need  to  be  specified  tto  execute  the  mean  square  energy  dissipation 
analysis.  Consequently,  the  mean  square  energy  dissipation  is  very  dif¬ 
ficult  to  obtain. 

The  result  from  Equation  (5-11)  can  be  used  to  predict  an  upper  bound 
of  the  energy  dissipation  measure  if  the  Markov  inequality  is  considerd 
[40]. 


P{X  a  a]  £  (5-12) 

a 

where  a  is  a  non-negative  constant.  In  view  of  this,  the  above  results 
obtained  for  mean  energy  dissipation  can  be  used  to  make  a  probabilistic 
statement  about  damage;  that  is,  X  is  the  cumulative  energy  dissipation  and 
a  is  the  quarter  cycle  energy  dissipation. 

Numerical  examples  presented  in  Chapter  6  show  the  results  of  mean 


energy  dissipation  computations. 


Chapter  6 


NUMERICAL  EXAMPLES 


6.1  INTRODUCTION 


In  the  previous  chapters  methods  of  establishing  mean  and  mean  square 
displacement  responses  for  both  linear  and  nonlinear  systems  were  developed. 
The  methods  of  computing  the  cross  correlation  between  displacement,  velo¬ 
city  and  acceleration  were  also  established.  The  equations  developed  to 
evaluate  the  statistical  response  properties  (such  as  Equations  (2-10), 
(2-22),  etc.,)  are  all  recursion  relationships  and  can  be  computed  directly 
by  numerical  methods.  The  capability  to  obtain  solution  moments  of  a  random 
differential  equation  with  nonlinear  and  random  coefficients  in  terms  of 
recursion  equations,  makes  the  methods  discussed  in  the  previous  several 
chapters  important.  A  computer  code  called  FEDRANS  (Finite  Element  Dynamic 
and  Random  Analysis  for  Nonlinear  System)  was  programmed  and  applied  to 
solve  the  equations  in  Chapters  2  through  5. 

It  is  noted  that  for  the  problems  involving  nonlinear  systems,  a 
specially  discretized  beam  is  necessary  in  order  to  evaluate  the  permanent 
sets  in  Equations  (3-13),  (3-14)  and  (3-15).  In  the  computer  program 
FEDRANS,  a  beam  is  divided  into  10  segments  in  the  longitudinal  direction 
and  10  layers  through  the  thickness.  A  configuration  of  such  beam  is  shown 


In  Figure  6.1,  along  the  longitudinal  axis,  x,  the  points  where  the 
beam  is  segmented  are  identified  by  the  equi-spaced  coordinate  values  x(i), 
i  ■  1,  •••  11.  The  beam  is  layered  in  the  z  direction  in  the  same  way, 
except  that  the  layers  may  not  have  equal  thickness.  The  w(i), 
i  «  1,  •••  11  represent  the  widths  at  x(i)  and  z(i)  locations.  Note  that 
x(0)  “0  and  x(ll)  -  L  where  L  is  the  beam  length  as  shown  in  Figure  6.1. 

The  integration  is  numerically  computed  with  the  trapezoid  rule; 


fc 

I  e  (u,z)zw(z)dz  = 
^ -c 


10 


i-2 


e  ( j , i)z( i)w( i)Az  +  t  (e  (j,l)  +  e  (j,ll))Az  -  h.(j), 
o  zoo  i 


(6-1) 


I  du  /  e  (u,z)zw(z)dz  = 

' 0  '-c.  ° 

j 

h^(i)Ax  +  ^  h^(l)Ax  for  j  <  11 

i-2 
11 

h^(i)Ax  +  j  ( h ^ <  1 )  +  hj(ll))Ax  for  j 


h2(  j) 


-  11 


i-2 


L  Pv  p  c 


(6-2) 


/  dv  /  du  /  e  (u,z)zw(z)dz  = 

•^0  h  J-c  ° 


10 


-  ^  h,(j)Ax  +  \  (h2(l)  +  h2(ll))Ax, 
j"2 


(6-3) 


where  Ax  -  L/10  and  Az  -  c/5  and  c  is  the  half  depth  of  the  beam. 
Similarly , 


I  t  (u,z)w(z)dz  - 
-c 

10 

*  eQ(  j  ,l)w(i)Az  +  j  (eQ(j,l)  +  e(j,ll))Az  -  h3(j),  (6-4 


/  du  /  e  (u,z)w(z)dz  - 
•^0  •'-c  ° 

10 

S  2  h30)Ax  +  j  (h3(l)  +  h3(ll))Ax.  (6-5) 

pj 

Equations  (6-1)  through  (6-5)  are  the  approximate  expression  of  the  inte¬ 
grals  in  Chapter  3. 

In  Chapter  2  the  eigenvectors  for  the  vibrating  system  were  used  to 
represent  the  displacement  response  in  the  development  of  a  recurrence 
relation.  An  iteration  scheme  was  used  to  obtain  the  eigenvectors  for  the 
vibrating  system.  The  displacement  vector  can  be  developed  by  superposing 
suitable  amplitudes  of  the  modes  of  free  vibration.  Since,  the  higher  fre¬ 
quencies  usually  do  not  significantly  contribute  to  the  displacement 
response.  It  is  sufficient  to  evaluate  the  lowest  p  modal  frequencies 
rather  than  the  entire  collection  of  frequencies.  Some  experiments  in  the 
present  study  have  shown  that  by  choosing  p  ■  3  it  is  possible  to  obtain 
good  accuracy  even  for  large  structural  systems.  The  method  of  subspace 
iteration  was  used  because  of  its  efficiency  in  obtaining  the  desired  eigen¬ 
vectors.  A  comprehensive  discussion  on  the  subspace  iteration  technique  is 
given  in  reference  [41]. 


* 


f-i 


When  only  one  mode  is  used  to  approximate  the  response  of  the  vibrating 

system,  the  method  of  inverse  iteration  can  be  used.  Also,  the  highest 

modal  frequency,  <°max>  sometimes  needs  to  be  evaluated  since  the  largest 

time  increment  At  can  not  be  chosen  greater  than  T  .  /4  where 

mm 

T  .  *  2ir/a>  .  (Otherwise,  stability  problems  will  arise  in  using  the 

mm  max  & 

central  difference  method).  The  method  of  forward  iteration  can  be  used 

here  to  obtain  the  highest  frequency  <u  .  Both  the  inverse  and  forward 

max 

iteration  methods  are  described  in  reference  [41]. 

In  the  present  analysis,  the  lumped  mass  approximation  is  used.  Con¬ 
sider  the  uniform  beam  with  six  degrees-of-freedom  as  shown  in  Figure  6.2. 

The  mass  values  (elements  in  the  diagonal  element  mass  matrix)  at  the 
degrees-of-freedom  i,  i  ■  1,  •••  6  are 

m(l)  ■  m(4)  *0.5  pAL 

m( 2)  -  m(5)  -  0.5  pAL  (6-6) 

m(3)  ■  m(6)  •  1/24  pAL^ 

where  p,  A,  L  are  the  mass  density,  cross  sectional  area  and  member  length, 
respectively. 

In  order  that  the  damped  system  is  to  possess  normal  mode  oscillation, 
the  damping  in  the  present  analysis  is  assumed  to  be  Rayleigh  damping;  that 


where  [c],  [m],  [\]  are  the  damping,  mass,  and  mean  linear  stiffness 


matrices,  respectively.  The  coefficients  a,  y  are  constant  coefficients 


that  establish  the  damping.  Note  that  the  damping  matrix  is  assumed  to  be  a 


constant  matrix  even  though  the  stiffness  matrix  behaves  nonlinearly. 


6.2  MATRIX  ALGEBRA 


The  equations  established  to  compute  the  statistics  of  structural 


response  (such  as  Equations  (2-22),  (2-32),  etc.,)  involve  matrix  multipli¬ 


cation.  In  FEDRANS  the  matrices  are  established  in  such  a  way  that  only 


non-zero  elements  are  stored.  For  instance,  the  stiffness  matrix  is 


assembled  and  stored  in  an  NxH  rectangular  matrix  rather  than  an  NxN  square 


matrix,  where  N  i3.  the  total  number  degree-of-f reedoms  and  H  is  the  half 


bandwidth  of  the  stiffness  matrix.  In  view  of  this,  when  two  matrices  are 


multiplied  together,  the  regular  matrix  multiplication  needs  to  be  modified. 


Consider  the  following  element  in  a  matrix  multiplication: 


U  -  7  Q  v  , 

r  r ,  s  s 


(6-8) 


where  [Q]  is  an  NxN  matrix  and  {V}  is  an  Nxl  vector.  The  resulting  matrix 


is  {U} ,  which  is  Nxl.  Let  the  matrix  [ Q ]  be  stored  in  [w]  which  is  NxH. 


The  transformation  between  these  two  matrices  can  be  defined  as 


W  -  Q 

r, s-r+l  r,s 


for  s-r+l  >  0 


W  J.1  -  Q 
s,r-s+l  s,r 


for  s-r+l  £  0 


(6-9) 


*i  . 


i 


WOTY! 


Since  [Q]  is  symmetric.  Substituting  Equation  (6-9)  into  Equation  (6-8) 
yields  the  result: 


* 

u  -  >  (W  .V  +  w  Alv  ), 

r  it, s-r+1  s  s,r-s+l  s 


(6-10) 


where  p  and  q  are  the  lower  and  upper  limits  to  be  determined.  Note  that 
the  first  term  on  the  right  side  in  (6-10)  exists  only  when  s-r+1  >  0,  and 
the  second  term  exists  only  when  s-r+1  £  0.  Considering  (6-9),  p  and  q  can 
be  expressed 


if  r-H  <  0 


r-H+1  if  r-H  >  1, 


(6-11) 


r+H-1  if  q  <  N 
N  if  q  £  N. 


(6-12) 


Equations  (6-10),  (6-11)  and  (6-12)  completely  define  the  operation  of 
matrix  multiplication.  Similarly,  Gaussian  elimination  can  be  modified  by 
an  analogous  approach. 


6.3  EXAMPLE  ONE 


The  first  example  considered  is  a  single-degree-freedom  structural 
system,  shown  in  Figure  6.3(a).  At  modal  excitation,  the  lateral  motion  of 


the  beam  is  defined  by  its  end  motion  z(t). 

The  beam  cross  sectional  dimensions  are  defined  as  in  Figure  6.3(b). 
The  values  of  these  cross  sectional  dimensions  and  the  material  properties 
are  given  in  Table  6.1. 
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Table  6.1  The  cross  sectional  dimensions 
and  the  material  properties  for  Example  1. 


E  is  the  mean  value  of  Young's  Modulus;  a is  the  yield  stress;  v  is  the 


Possion's  ratio;  p  is  the  mass  density;  a  and  y  are  the  coefficients  of 


.Rayleigh  damping.  The  natural  frequency,  w^,  and  damping  ratio,  £,  for 


system  were  computed  from  the  above  data.  The  results  are 


<u  ■  0.68086  rad/sec 
n 


C  «  0.0734 


The  mean  and  autocovariance  of  the  input  forcing  function  are  graphically 
presented  in  Figure  6.4. 

The  mean  and  autocovariance  of  the  response,  which  are  given  by 
Equations  (2-14)  and  (2-22)  for  the  linear  system,  Equations  (3-23)  and 
(3-33)  for  the  nonlinear  system,  can  then  be  computed  using  the  data  given 


above.  In  the  linear  problem  solution  the  yield  stress  is  assumed  to  be 


infinite.  The  mean  and  autocovariance  of  the  response  for  both  linear  and 
nonlinear  systems  were  determined  using  the  computer  program  FEDRANS.  There 
are  two  cases  considered  here  for  different  values  of  8,  the  coefficient  of 
variation  of  Young's  modulus.  (The  coefficient  of  variation  is  the  ratio  of 
the  standard  deviation  and  the  mean  of  a  random  variable.  See  Equation 
(2-27).)  Figures  6.5  through  6.8  show  the  results  for  B  ■  0,  and  Figures 

6.9  through  6.10  show  the  results  for  8  ■  0.1.  Figures  6.5  and  6.6  show 
the  mean  structural  responses  for  the  linear  and  nonlinear  systems,  respec¬ 
tively,  for  the  excitation  shown  in  Figure  6.4.  Figures  6.7  and  6.8  show 
the  variance  of  the  structural  response  for  the  linear  and  nonlinear 
systems,  respectively,  for  the  excitation  in  Figure  6.4.  In  both  cases  the 
stiffness  is  deterministic,  i.e.,  8  ■  0. 

When  the  stiffness  is  random  the  mean  response  is  approximately  equal 
to  the  mean  response  of  the  system  whose  stiffness  is  deterministic. 

However,  their  variances  of  the  responses  are  different.  Figures  6.9  and 

6.10  show  the  variance  of  the  structural  responses  for  the  linear  and 
nonlinear  systems,  respectively,  for  the  excitation  shown  in  Figure  6.4  and 
for  8  ■  0.1.  The  response  variances  are  greater  in  both  cases,  when  the 
structural  stiffness  are  random  than  when  the  structural  stiffnesses  are 
deterministic . 

In  order  to  compare  the  results  of  this  anlysis  with  known  results, 
consider  the  response  of  a  linear  structure  with  8*0,  that  is,  the  stiff¬ 
ness  term  is  deterministic.  In  such  a  case,  Equation  (2-10)  can  be  solved 
in  closed  form  when  the  input  is  white  noise  with  constant  spectral  density, 


TIME  (SEC) 


Displacement  ,  IN 


E[Z  v  t) )  -  - {1  - 

2£w  m 


exp(-2£w  t) 


n  2 

•z -  [«,  +  2(?w  sinw.t)  +  Cw  u>  ,sin2<u  ,t  ] } 

2  d  nd  nd  d 

d  (6-13) 


where  w,  is  the  damped  frequency.  The  spectral  density  S  can  be  determined 
a  o 

in  the  following  manner.  Note  that  the  mean  square  input  is  assumed  to  be  a 
constant  as  shown  in  Figure  6.4(b).  The  constant  mean  square  satisfies  the 
property  of  white  noise 


E[F(t)F(s)]  -  Rpp( t-s)  -  2irSo$(t),  x  -  t-s 


STTM  •  So 


(6-14) 


where  Spp(w)  and  Rpj.(x)  are  the  spectral  density  and  the  autocorrelation 
function  for  the  input,  respectively.  In  order  to  obtain  the  value  Sq, 
consider  a  discrete  time  representation  for  the  delta  function,  6(x),  as 
shown  in  Figure  6.11. 

The  ideal  white  noise  can  be  obtained  as  Ax-*0.  However,  in  practical 
analysis.  Ax  is  chosen  as  a  small  value  which  never  goes  to  zero.  As  a 
result,  the  signal  which  is  represented  as  a  band-limited  white  noise.  The 
amplitude  Ax  ^  remains  finite  for  band-limited  white  noise.  In  such  a  case, 
the  mean  square  value  is  evaluated  at  x  ■  0  and  the  result  is 


E[ F“( t )  1  - 


t)  lAx 


( 6-1 5a) 


( 6-1 5b) 


2  2 

where  E[F”(t)]  ■  l 2 ( k “ )  as  shown  in  Figure  6.4.  (This  relation  can  also  be 
derived  using  frequency  domain  arguments  and  the  graph  of  the  spectral 
density  of  band-limited  white  noise.) 
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Variance  Computed  Using  FEDRAMS 
Variance  From  Equ.(6-l6'J 


After  the  value  S  is  obtained,  Equation  (6-13)  can  be  evaluated.  The 
o 

comparison  between  Equation  (6-13)  and  the  corresponding  result  obtained 
using  the  formulas  developed  in  this  study  is  plotted  in  Figure  6.7.  The 
agreement  between  these  results  is  good.  The  evaluation  of  approximation  in 
using  FEDRANS  as  compared  to  the  exact  values  can  be  made  for  various 
values  of  At  more  readily  at  stationary  values.  The  stationary  response  can 
be  evaluated  as  t-*»  in  Equation  (6-13),  that  is 

e[ z2( t) ]  -  (6-16) 

2?w  m 
n 

The  ratio  of  FEDRANS  approximation  to  the  theoretical  value  (6-16)  is  shown 
in  Figure  6.12  for  several  values  of  Ax  (normalized  by  the  period  of  the 
single-degree-of-freedom  system).  When  Ax  is  small  the  ratio  is  near  one 
and  the  error  is  very  small.  As  Ax  increases  the  error  increases.  Spe¬ 
cifically,  the  computed  variance  becomes  greater  than  the  theoretical 
variance.  It  can  be  established  that  the  error  is  less  than  8  percent  when 
Axu>n/2ir  is  less  than  9  percent. 

The  variance  of  velocity  and  acceleration  were  also  computed  for  the 
linear  structural  response.  The  results  are  plotted  in  Figures  6.13  and 
6.14  for  the  case,  B  ■  0.1.  The  cross  correlations  between  displacement  and 
velocity,  between  displacement  and  acceleration,  and  between  velocity  and 
acceleration  were  also  computed  and  the  results  are  plotted  in  Figures  6.15, 
6.16  and  6.17.  Note  that  E[VZ]  and  E[AV]  approach  zero  after  five  or  six 
response  cycles.  Also  note  that  E [ AZ ]  is  negative  as  might  be  anticipated. 
The  variances  and  correlations  of  displacement,  velocity  and  acceleration 
for  nonlinear  system  response  were  also  computed.  The  results  are  plotted 
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Figure  6.15  Crossmoment  between  linear  velocity 
and  displacement  for  Example  1,  B  -  0.1 
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Figure  6.16  Crossmoment  between  linear  iff  e  le  r  if  i  on 
and  velocitv  tor  Example  1.  B  ■  O.i 
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in  Figures  6.18  through  6.22.  Figures  6.18  and  6.19  show  the  variances  of 
velocity  and  acceleration  for  the  nonlinear  system.  Figures  6.20,  6.21  and 
6.22  show  the  crossmoments  between  velocity  and  displacement,  acceleration 
and  velocity,  acceleration  and  displacement,  respectively,  for  the  nonlinear 
system.  The  mean  energy  dissipation  for  the  nonlinear  system,  Equation 

> 

(5-5),  is  0.281  (lb-in)  which  is  small.  This  indicates  that  the  yielding  is 
not  significant  and  the  damage  of  the  structure  is  small. 

> 

6.4  EXAMPLE  TWO 
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Figure  6.19  Variance  of  nonlinear  acceleration 
response  for  Example  1,  6  ■  0.1 


Figure  6.20  Crossmoment  between  nonlinear  velocitv 
and  displacement  for  Example  1,  B  ■  0.1 
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The  frequencies  for  this  system  can  be  computed  based  on  the  data  given  in 
Table  6.2.  The  results  obtained  from  computer  program  FEDRANS  are: 

■  1.244  rad/ sec, 

«2  *  5.961  rad/sec, 

in  which  the  subindices  1  and  2  represent  the  corresponding 
degree-of-freedom  as  shown  in  Figure  6.23.  The  time  increment  Ax  is  then 
chosen  to  equal  0.2  sec. 

The  mean  and  variance  of  the  input  are  graphically  shown  in  Figure 

6.24. 

The  mean  response  for  the  linear  system  was  computed  and  the  result  is 
graphically  shown  in  Figure  6.25.  The  mean  value  of  the  response  of  the 
nonlinear  system  was  also  computed  and  the  result  is  plotted  in  Figure  6.26 
The  variances  of  the  responses  were  also  computed  for  the  cases  of 
B  *  0  and  0.1.  The  system  with  B  »  0  is  considered  first.  The  variance  of 
the  displacement  response  of  the  linear  system  was  computed.  The  result  is 
plotted  in  Figure  6.27.  The  variance  of  the  displacement  response  of  the 
nonlinear  system  was  also  computed.  The  result  is  plotted  in  Figure  6.28. 

The  system  with  B  ■  0.1  is  considered  next.  The  variances  of  the 
responses  of  the  linear  and  nonlinear  systems  were  computed,  and  the  result 
are  plotted  in  Figures  6.29  and  6.30,  respectively.  Comparison  of  Figure 
6.27  and  6.28  shows  that  both  the  linear  and  nonlinear  systems  approach  a 
state  of  stationary  response  with  the  same  amplitude,  and  at  the  same  time. 
When  B  ■  0.1,  the  variances  of  both  the  linear  and  nonlinear  responses 
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Figure  6.27(a)  Variance  of  displacement  response 
linear  system,  B  ■  0,  at  DOF  -  1 


Figure  6.27(b)  Variance  of  displacement  response 
linear  system,  6  *  0,  at  DOF  ■  2 
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Figure  6.29(a)  Variance  of  displacement  response 
linear  system,  0  *  0.1,  at  DOF  ■  1 
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Figure  6.29(b)  Variance  of  displacement  response, 
linear  system,  B  ■  0.1,  at  DOF  ■  2 
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approach  a  stationary  state  much  more  slowly  than  the  case  where  6  *  0.  The 


energy  dissipation  for  the  nonlinear  system,  Equationn  (5-5),  is  0.89E-02 
(lb-in)  which  still  is  small. 

6.5  EXAMPLE  THREE 


The  third  example  considered  is  a  one-story  building  as  shown  in  Figure 
6.31.  This  structural  system  has  six  degrees-of-f reedom.  The  load  is 
assumed  to  act  in  the  horizontal  direction  as  shown. 

The  cross  sectional  dimensions  and  member  properties  for  members  number 
1  and  number  2  are  given  in  Table  6.3. 
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Table  6.3  The  cross  sectional  dimensions  and 
the  material  properties  for  Example  3 

The  lowest  and  highest  frequencies  for  this  system  were  computed  by  using 
the  computer  program  FEDRANS,  and  the  results  are: 


(u  .  ■  76.07  (rad/sec), 

min 

u>  ■  1291.47  (rad/sec) 

max 


The  time  increment  At  is  chosen  to  be  1  ms.  The  mean  and  mean  square  inputs 
are  graphically  given  in  Figure  6.32. 

The  mean  displacement  responses  for  the  linear  and  nonlinear  systems 
were  computed  using  the  computer  program  FEDRANS,  and  the  results  are 
plotted  in  Figures  6.33  and  6.34.  Figure  6.33(a)  shows  the  mean  value  of 
the  response  at  degree-of-f reedora  7.  Figure  6.33(b)  shows  the  mean  value  of 

the  response  at  degree-of-f reedom  8.  Figure  6.33(c)  shows  the  mean  value  of 

the  response  at  degree-of-f reedom  9.  Figures  6.34(a),  (b)  and  (c)  present 

similar  results  for  the  nonlinear  system. 

The  mean  square  displacement  responses  were  computed  for  6*0  and 
0.01.  For  the  case  of  6  *  0,  the  variances  of  displacement  responses  for 
the  degrees-of-f reedom  from  7  through  9  were  computed.  Figure  6.35  shows 
the  results  for  the  linear  system,  and  Figure  6.36  shows  the  results  for  the 
nonlinear  system.  Figures  6.35(a),  (b)  and  (c)  show  the  variance  of  dis¬ 
placement  (or  rotation)  response  of  the  linear  system  at  degrees-of-f reedom 
7,  8  and  9,  respectively;  Figures  6.36(a),  (b)  and  (c)  show  the  variance  of 
displacement  (or  rotation)  response  of  the  nonlinear  system  at  degrees-of- 

f reedom  7,  8  and  9,  respectively.  For  the  case  of  B  ■  0.01,  the  variances 

of  displacement  responses  are  computed  for  the  same  degrees-of-f reedom. 
Figures  6.37(a),  (b)  and  (c)  summarize  results  for  the  linear  system,  and 

Figures  6.41(a),  (b)  and  (c)  summarize  results  for  the  nonlinear  system. 

From  Figures  6.35  through  6.38  it  can  be  concluded  that  the  envelopes 
of  the  variances  of  displacement  responses  at  all  the  degrees-of-f reedom 
possess  approximately  the  same  shape  for  the  linear  and  nonlinear  system. 
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Figure  6.35(c)  Variance  of  displacement  response 
linear  system,  0  *  0,  at  DOF  •  9 


Figure  6.36(a)  Variance  of  displacement  response 
nonlinear  svstem,  0  *  0,  at  DOF  a  7 


Rotation 


0 


TIME  (SEC) 


1 


Figure  6.36(b)  Variance  of  displacement  response 
nonlinear  system,  B  ■  0,  at  DOF  ■  8 


Figure  6.36(c)  Variance  of  displacement  response 
nonlinear  system,  B  *  0.  at  DOF  *  r) 
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Figure  6.37(c)  Variance  of  displacement  response, 
linear  system,  B  *  0.01,  at  DOF  *  9 


Figure  6.38(a)  Variance  of  displacement  response, 
nonlinear  system,  B  *  0.01,  at  DOF  ■  7 
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When  the  stiffness  behaves  randomly,  the  envelopes  of  the  variances  of  dis¬ 
placement  responses  at  the  various  degrees-of-f reedom  still  have  the  same 
general  shapes,  however1,  some  early-time  rapid  variation  is  present  in  the 
response  variance  signals,  especially  for  the  nonlinear  system. 


Chapter  7 


DISCUSSIOM  AND  CONCLUSION 


7.1  DISCUSSION 


It  was  mentioned  in  Chapter  2  that  the  higher  order  terms  which  were 
neglected  in  the  present  analysis  can  be  included  for  SDF  system  when  both 
the  random  stiffness  K  and  the  displacement  response  random  process  2(t)  are 
Gaussian.  Consider  for  a  linear,  SDF  system,  the  governing  equation  can  be 
represented  by  Equation  (2-4), 


m(  |i+2)  +  c(p-t-Z)  +  (UK)(p+Z)  »  ♦  ♦  F. 


(2-4) 


The  mean  response  can  be  obtained  by  taking  the  expectation  of  the  above 
equat ion , 


mp 


cp 


♦  Vp  +  e[kz]  -  <j> , 


(  7-1  ) 


where  use  has  been  made  the  fact  that  Z  and  K  are  both  zero  mean.  The 
remaining  part  which  characterizes  the  random  component  of  the  response  can 
be  obtained  by  subtracting  Equation  (7-1)  from  Equation  (2-4), 


m2  ♦  cZ  ♦  \Z  -  F  -  Kp  ♦  E{KZ)  -  KZ. 


(  7-2) 
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The  nean  and  random  component  of  the  displacement  response  at  time  step  j+1 
can  be  evaluated  similarly  to  Equations  (2-13)  and  (2-19), 


L 


(A,p4  +  A,p._,  +  At%4  -  At  E[K2.])/Aj, 


j+i  "  +  Vj-1 


j 


(7-3) 


Z.  ,  -  (A.Z.  +  A,Z.  .  +  AtV  -  At2Kp.  +  At2E[KZ.]  -  At2KZ.)/Alt 
J+1  2  j  3  j-1  J  J  J  J  1 


(7-4) 


where  A^ ,  A^ ,  A^  are  the  same  as  given  by  Equation  (2-15).  The  term  E(KZj 
can  be  evaluated  by  postmultiply ing  Equation  ( 7-4)  by  K  and  then  taking 
expectation , 


E(KZj  -  (A,E(KZj_1l  ♦  A;jE[KZj_2]  -  At2E[K2]pj  -  At2E[  K2Z  ] ) /Aj  , 

(7-5a) 

where  use  has  been  made  the  fact  that  K  is  independent  of  F(t)  and  both  are 
zero  mean.  It  is  noted  that  the  last  term  in  Equation  (7-5a),  E[ K“Z ^  J ,  is 
the  higher  order  crossmoment  between  K  and  Z^ .  However,  when  both  K  and 
Z(t)  are  Gaussian  distribution,  this  term  is  zero  [33),  i.e., 


e[k2z  ,I-o. 

J 


Consequently,  Equation  (7-5a)  can  be  reduced  to 


E(KZ.)  -  ( A0E( KZ .  )  +  A-ElKZ.  ,1  -  AtfcE[  Kfc ]p . ) /A. 

J  <-  J  ~ J  ■>  J-*-  J  1 


( 7 -5b) 


It  is  noted  that  the  first  and  second  term  in  Equation  (7-5b)  possess  the 
recurrent  form  of  E [ KZ ^  ]  and  the  last  term  is  assumed  known.  Therefore, 
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Equation  (7-5b)  can  be  evaluated  under  the  assumption  that  K,  Z(t)  are 
Gaussian  distribution.  Consequently,  Equation  (7-3)  provides  the  exact 
solution  of  the  mean  displacement  response. 

The  variance  of  the  displacement  response  can  be  computed  similarly  to 
Equation  (2-22), 


E( Zj  +  1  1  -  A^EUjl  +  A^EtZ^]  +  At4E[K2]p2  +  At4E[F2]  - 

-  At4E[KZj]2  +  At4E[K2Z2]  +  2A,,A3E[  Z^Z^  ]  - 

-  2At2A2E{KZj  }\i.  -  2At2A2E[KZ2]  -  2At2A3E[KZ ._L ]p^  - 

-  2At2E[KZ.Z.  . ]A-  +  2At4E(K2Z. ]p. )A72.  (7-6) 

J  J-l  3  j  *j  1 


The  new  terms  introduced 

EfKZ.Z.  ,  ]  and  E[K2Z2]  . 

J  J-l  J 


in  Equation  (7-6)  are  E[KZ^],  E[KZ2],  E[K2Zj], 
However,  under  the  assumption  that  K  and  Z(t)  are 


Gaussian,  the  following  terms  are  zero; 


E[ K2Z . ]  -  E[ KZ2 1  -  E[ KZ . Z .  .]  -  0.  (7-7) 

J  J  J  J-l 

2  2 

The  term  E[K“Z“]  can  be  reduced  to  the  following  lower  moments  under 
Gaussian  assumption, 

E[K2Z2]  -  2  E [ KZj ] 2  +  E[ K2  J  E[Z2].  (7-8) 

By  using  Equations  (7-7)  and  (7-8),  the  variance  of  the  displacement 
response  which  is  given  by  Equation  (7-6)  can  be  solved.  The  comparison  of 
the  mean  response  between  the  one  from  equation  (7-3)  and  the  one  from 
Equation  (2-14)  is  made  by  using  the  same  system  and  excitation  of  Example  1 
and  the  result  is  plotted  in  Figure  7.1.  The  error  is  less  than  0.5 


percent.  The  comparison  of  the  variance  response  between  the  one  from 
Equation  (7-6)  and  the  one  from  Equation  (2-22)  is  also  made  and  the  result 
is  plotted  in  Figure  7.2.  The  error  is  less  than  8  percent. 

From  the  above  analysis,  it  can  be  concluded  that  the  omission  of  the 
higher  order  term  is  admissible  if  the  stiffness  does  not  behave  extremely 
random.  The  error  occurred  in  variance  response  is  higher  than  in  the  mean 
response . 

Also,  from  Equation  (7-5b),  it  is  noted  that  the  joint  moment  between  K 
and  Z(t)  is  related  to  the  second  moment  of  the  stiffness  only.  In  other 
words,  the  joint  moment  between  K  and  Z(t)  can  be  computed  without  any 
further  assumption  on  the  statistical  property  of  the  joint  correlation 
between  Z( t)  and  K.  This  satisfies  the  real  situations  which  occurred  in 
the  nature  since  the  correlation  between  stiffness  and  the  response  must 
exist  in  a  natural  sense  which  should  be  evaluated  a3  long  as  the  statis¬ 
tical  properties  of  the  stiffness  and  the  excitation  are  known.  Many 
studies  [9]  have  assumed  that  the  correlation  between  K  and  Z(t)  is  known 
which  is  not  a  reasonable  assumption.  The  crossmoment  between  K  and  Z(t)  is 
computed  and  the  result  is  plotted  in  Figure  7.3.  Figure  7.3  shows  that  K 
and  Z(t)  are  negative  correlated  most  of  the  time  during  the  response  cycle. 
This  satisfies  the  physical  phenomenon  since  the  higher  tendency  of  the 
stiffness  will  cause  the  lower  magnitude  of  the  response,  as  it  should. 

7.2  CONCLUSION 

The  present  investigation  has  developed  a  structural  damage  theory  to 
evaluate  the  mean  and  autocovariance  functions,  and  the  mean  energy  dissi¬ 
pation  for  the  response  of  a  structural  system  with  random,  potentially 


CORRELATION  BETWEEN  K  AND  Z(T),  E[KZ(T)] 


elasto-plastic  restoring  force,  subjected  to  random  excitation.  The  problem 
is  treated  by  shifting  the  stiffness  matrix,  the  excitation  and  the  response 
random  processes  about  their  means  in  such  a  way  that  the  response  is 
resolved  into  two  parts  with  a  differential  equation  governing  each  part. 

The  first  equation  essentially  governs  the  mean  response.  The  second 
equation  essentially  characterizes  the  random  component  of  the  response. 

The  response  autocovariance  function  can  be  obtained  using  the  equation  that 
governs  the  random  component  of  the  response. 

The  measures  of  response  considered  in  this  investigation  are  displace¬ 
ment,  velocity,  acceleration  and  energy  dissipation.  The  second  order 
moments  of  displacement,  velocity  and  acceleration  are  obtained.  The  cross- 
moments  between  displacement  and  velocity,  velocity  and  acceleration, 
acceleration  and  displacement  are  also  evaluated.  The  results  are  presented 
in  discrete  time.  The  first  and  second  statistical  moments  in  time  history 
are  plotted  in  specific  examples.  The  theory  developed  here  is  applicable 
in  the  analysis  of  response  to  both  stationary  and  nonstationary  random 
excitations.  It  follows  that  the  damage  theory  developed  in  this  study  can 
be  used  to  assess  the  damaged,  MDF  structures.  The  computer  program 
developed  is  based  on  the  finite  element  method. 

When  nonlinearity  appears  in  the  structural  restoring  force  function, 
it  is  assumed  that  the  nonlinearity  exists  in  material  property.  The 
material  nonlinearity  is  assumed  to  be  elasto-plastic.  The  cyclic  elasto- 
plastic  response  of  the  structure  is  described  in  discrete  time  steps.  At 
each  step  in  the  response  computation,  an  equivalent  stiffness  matrix  is 
obtained  from  the  system  restoring  forces.  These  system  restoring  forces 
are  obtained  by  iterating  the  permanent  set  at  each  time  step. 


The  energy  dissipation  due  to  material  nonlinearity  is  evaluated. 
However,  only  mean  energy  dissipation,  which  can  be  used  to  predict  an  upper 
bound  on  the  total  energy  dissipation,  is  evaluated.  When  damage  is  assumed 
to  be  related  to  energy  dissipated  it  can  be  assessed  based  on  this 
analysis . 

Several  numerical  examples  are  executed  using  the  computer  program 
FEDRANS  which  is  written  based  on  the  theory  developed  in  this  study  and 
appended  in  this  report.  The  present  theory  can  be  applied  to  a  generic 
class  of  random  excitations.  These  include  white  and  non-white  types.  A 
comparison  of  the  present  theory  with  published  results  is  made  for  the  case 
of  stationary  white  noise  excitation  when  the  stiffness  is  deterministic. 

The  results  show  good  accuracy. 

Other  results  of  the  numerical  examples  lead  to  the  following  conclu¬ 
sions.  (1)  The  response  autocovariance  function  for  the  nonlinear  system 
has  greater  magnitude  than  the  response  autocovariance  function  for  the 
linear  system.  For  instance,  while  the  mean  response  for  the  nonlinear 
system  is  12  percent  higher  than  that  for  the  linear  system,  the  standard 
deviation  for  the  nonlinear  system  is  35  percent  higher  than  that  for  the 
linear  system.  (2)  The  response  autocovariance  function  for  a  system  with 
random  stiffness  is  greater  than  the  response  autocovariance  function  for  a 
system  with  deterministic  stiffness.  For  instance,  while  the  stiffness 
shows  10  percent  variation,  the  standard  deviation  of  the  response  for  a 
random  stiffness  is  5  times  higher  than  that  tor  a  determinsitic  stiffness 
system. 

Therefore,  the  structural  damage  theory  developed  in  this  study  pro¬ 
vides  a  base  to  develop  a  method  for  damage  diagnosis  and  reliability 
assessment  of  structural  systems  with  random  characteristics  excited  by 


random  excitations.  The  formalism  of  the  present  report  enables  us  to 
assess  the  damage  for  a  generic  class  of  MDF  nonlinear  system  with  elasto- 
plastic  material.  Further,  the  present  investigation  constitutes  as  part  of 
the  theory  of  damage  diagnosis  and  makes  the  theory  more  satisfacotry . 

The  future  study  may  include  the  following: 

(1)  Establishment  of  a  damage  model  that  allows  the  random  component  of 
the  stiffness  matrix  to  be  a  matrix  of  random  processes  rather  than  a  matrix 
of  random  variables. 

(2)  Establishment  of  a  damage  model  that  involved  the  energy  dissipa¬ 
tion  and  maximum  displacement.  Also  the  establishment  of  the  correlation 
between  these  two  is  desirable  in  the  analysis  of  damage  theory. 

(3)  Evaluation  of  the  second  moment  of  the  energy  dissipation. 

(4)  Consideration  of  system  damping  as  a  random  quantity. 
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Not  presently  used 

31-40 

ALFA (id) 

Angle  of  rotation  of 

the  principal 

41-50 

THETAI ( id) 

Specified  rotation 

about  z- axis 

51-60 

THETAJ(id) 

Specified  rotation 

about  Z-axis 

11.  B.C.  (13,11, ,6I1,6F10.4) 


: 


ft 


*> 


1-3 

N 

Number  of  restrained 

node 

4 

NTYPE(n) 

B.C.  Type  0=  No  I.C. 

5-10 

IR(n, j) 

A  six  digit  integer 

identifying  type  of 

constraint.  1=  constrain,  0=free 

(  for  plane  frame,  only  3  was  read  which 

is  (x,y ,zz)  ) 

11-20 

UI (n, 1) 

Specified  IC (translation  in  global  x-dir) 

21-30 

UI (n,2) 

in  y-direction 

(Use  only  for  static 

31-40 

UI(n,3) 

in  z-direction 

analysis,  In  dynamic 

41-50 

UI (n,4) 

in  x  rotation 

analysis,  read  from 

51-60 

UI (n,5) 

in  y  rotation 

card  23) 

61-70 

UI (n ,6) 

in  z  rotation 

12.  MEMBER  RELEASE  (13,211) 

Only  for  NMREL  GT  0 

These  data  are  required  for  members  with  initially  spe¬ 
cified  releases  only.  Repeat  NMREL  times  (one  card  for 

each  released  member)  * 

1-3  IM  Member  number 

4  MREL(im,l)  Release  code  for  node  i  of  member  as 

specified  im  member  data 

5  MREL(IM,2)  Release  code  for  node  j  of  member 

The  release  code  is  specified  by  a  two 

*  ^ 

a* 

digit  integer:  either  1  or  0  is  used 
depending  on  whether  the  I  or  J  nodes  of 
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the  member  are  released  or  not  released 
respectively. 


13.  LOADING  PARAMETERS  (215,  3F10.4) 


Only  for  static  analysis,  otherwise,  skip  this  card. 


This 

card 

repeated  NLC  times,  one  for  each  load  data  set 

1-5 

NLND 

Number  of  nodes  with  concentrated  loads 

6-10 

NLMEM 

Number  of  members  having  loads  along 

their  length  between  nodes 

11-20 

AX 

Blank 

21-30 

AY 

g-Acceleration  in  y-direction 

31-40 

AZ 

Blank 

14.  CONCENTRATED  NODAL  LOADS  (I5.6F10.4) 


Only  for  static  analysis,  otherwise,  skip  this  card 
One  card  per  loaded  node  for  each  loading  condition  is 
required. 


1-5  NL 
6-15  P(l) 

16-25  P ( 2 ) 
26-35  P ( 3 ) 
36-45  P(4) 

46-55  P(5) 


Node  number 

Component  of  concentrated  force  in 
global  x-direction 
Force  in  global  y-direction 
Focce  in  global  z-direction 
Component  of  concentrated  couple 
about  global  x-axis 
Couple  about  global  y-axis 
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r 


56-65  P(6)  Couple  about  global  z-axis 

15 .  Member  Load 

Only  for  static  analysis,  otherwise,  skip  this  card. 

Two  cards  per  loaded  member  (NLNEM  members)  are-  required 
for  each  loading  dondition  involing  members  with  inter¬ 
mediate  loads . 


1-5 

MN 

Member  number 

6-10 

I 

Node  number 

11-20 

P(l) 

Fixed 

end 

axial  force  at  node  I 

21-30 

P(2) 

Fixed 

end 

y-shear  . 

at  node  I 

31-40 

P(3) 

Fixed 

end 

z -moment 

at  node  I 

41-50 

P  (4) 

Fixed 

end 

x -moment 

(torque)  at  node  I 

51-60 

PCS) 

Fixed 

end 

y -moment 

at  node  I 

61-70 

P(6) 

Fixed 

end 

z -moment 

at  node  I 

SECOND  CARD  (5x, 15 , 6f 10 . 4) 


1-5 

Blank 

6-10 

I 

Node  number 

11-20 

P  C  7 ) 

Fixed 

end 

axial  force  at  node  J 

21-30 

PCS) 

F  ixed 

end 

y-shear  at  node  J 

31-40 

P(9) 

Fixed 

end 

z-shear  at  node  J 

41-50 

P(10) 

Fixed 

end 

x-moment  (torque)  at  node  J 

51-60 

P(ll) 

Fixed 

end 

y-moment  at  node  J 

61-70 

PC  12) 

Fixed 

end 

z-moment  at  node  J 

(Card  16  to  25,  read  only  for  dynamic  anlaysis) 

16.  DYNAMIC  LOAD  INPUT  (  215, f 10. 4) 

1-5  IRANDM  Random  analysis,  =1:  No,  =2:  yes 

6-10  LON  Linear  or  nonlinear  analysis 

=1:  Linear,  2:  Nonlinear 


11-15 

NDOFL 

Total 

Jt 

1- 

dof  that 

have  load 

16-20 

NT  I 

Total 

# 

of  time 

increments 

21-30 

DT 

Delta 

t 

17.  LOAD  DESCRIPTION  (repeat  NDOFL  times)  (215) 

1-5  NDOF(i)  #  of  dof  that  has  load  acting 

6-10  NTPDL  #  of  points  when  card  is  applied. 

(see  next  card  for  the  meaning  of  ns(i,j)) 


18.  LOADS  DESCRIPTION  5(15, flO. 5) 

Repeat  NTPDL  Times 

1-5  NS (ndof ( i) , 1)  #  increment  of  time  when  load  is  specified. 

6-15  DL(ndof (i) , 1)  corresponding  amplitude 

16-20  NS(ndof (i) ,2)  same  as  above 
21-30  DL(ndof (i) ,2) 

31-35  NS(ndof (i) ,3)  (if  necessary) 


36-46  DL(ndof (i) , 3) 


19.  CROSS  TERM  CONTROL  CARD 

This  card  read  only  when  IRANDM=2 

1-5  ICROS  Flag  indicating  compute  cross  moment 

0 :N0,  1 : YES 

6-10  IW  Flag  indicating  compute  E(W) 

0 : NO ,  1 : YES 

11-15  IAA  Flag  indicating  compute  E(AA) 

0 : NO ,  1 : YES 

16-20  IVZ  Flag  indicating  compute  E(VZ) 

0 : NO ,  1 : YES 

21-25  IAZ  Flag  indicating  compute  E(AZ) 

0 : NO ,  1 : YES 

26-30  IAV  Flag  indicating  compute  E(AV) 

0 : NO ,  1 : YES 

Card  20-22,  read  only  for  IRANDM=2,  otherwise,  skip  it 

20.  COVARIANCE  MATRIX  INPUT  CONTROL  CARD  AND  MODAL  ANALYSIS 
CONTROL  CARD 

1-5  NCVDF  Total  pairs  0  DOF  in  covariance 

matrix 

6-10  NRQ0T  Number  of  eigenvectors  required  to 

represent  the  mean  response 

11-15  NSMAX  Maximum  number  of  sweeps  allowed  in 

subroutine  JACOBI 

16-25  CORRI  Coefficient  of  variation  of  Young's 

modulus  (beta) 


21.  PAIRS  DESCRIPTION 


Repeat  NCVDF  times,  each  time  read  one  card 


1-5 

N1(I) 

Pair  for  DOF 

6-10 

N2(I) 

' 

11-20 

NTACV 

Total  #  needed  to  describe  Ax  in  time 

domain 


22.  AMPLITUDE  DESCRIPTION  IN  COVARIANCE  MATRIX 
Repeat  NTACV  Times 

1-5  NT(nl(i) ,n2(i) , j)  Time  increment  that  have  amplitude 

change 

6-15  AX(nl(i) ,n2(i) , j)  The  corresponding  amplitude 

23.  PRINT  OUT  DETAIL  CONTROL  CARD  (715) 


1-5 

INPT 

Initial  #  dof  for  print  out 

6-10 

IFPT 

Finial  #  dof  for  print  out 

11-15 

JPNP 

Jump  number  for  Print  out 

16-20 

INTPT 

Initial  #  for  Time  print  out 

21-25 

IFTPT 

Final  #  for  time  print  out 

26-30 

JPNT 

Jump  increment  for  print  out 

31-35 

INIT 

Initial  condition 

0=Generate  by  program 

l=Read  from  data  card 

36-40 

I  PLOT 

Plot  control 

0=direct  print  out 

l=write  into  a  data  file 

24.  I.C.  (only  for  INIT=1) 
Repeat  NUMEQ  times 


1-10  xdp(ii,l) 
11-20  xld(ii,l) 
21-30  x2d(ii, 1) 


25.  This  card  inputs  a  trial  number  in  sub-space  iteration 
Usually,  set  it  to  unity.  If  the  object  matrix  is  not 
positive  define,  change  to  another  value  until  the 
object  stiffness  matrix  is  positive  definite.  A  better 
way  in  second  try  is  to  set  this  number  as  negative. 

(  Random  format  )  TRIX 


APPENDIX  B 


COMPUTER  PROGRAM  "FEDRANS 

Finite 

Element 

Dynamic  and 

Random 


Analysis  for 

Nonlinear 

Systems 


subroutine  beam  (id,i,j) 

common/ par/  method , kind , numnp  ,nstrut ,  nbeam  , numem  ,nmp  ,nmrel  ,mband, 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) , ir(25 ,6) ,ui(25 , 6) 
common/mem/  mtype(50) ,nd(50 ,2) , mid (50) ,mlc(50) ,alfa(50) , 

1  mrel(50,2) ,thetai(50) .thetaj (50) 

common/mlib/  xa(25) ,zi(25) ,yi(25) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common/mat/  e(5) ,sigma(5) ,epsiln(5) ,pr(5) ,g(5) ,rho(5) 
common  /stif/  s (12, 12) ,r(3 ,3) ,t(12, 12) ,st(12 , 12) ,tf (12) ,p(l2) 
double  precision  s  ,r,t ,st ,tf ,sl ,s2,s3 ,s4 ,s5 ,sl,dsqrt ,xl,x2,yl , 

1  y2,zl,z2 

xl=x(i) 
x2*x(j) 
yi=y(i) 
y2*r(j) 
zl-z(i) 
z2=z(j ) 

sl=dsqrt((x2-xl)**2+(y2-yl)**2+(z2-zl)**2) 
generate  element  stiffness  matrix  (S) 
m=mid(id) 
n=mtype(id) 
ym«e(m) 
sm=g(m) 

sl=xa(n)*ym/sl 
s2=sm*xj (n)/sl 
s3=ym*zi(n)/sl 
s4=yra*yi(n)/sl 
s5»3 . *ym*zi (n) / (s 1**3 ) 
do  10  ii=l,neq 
do  10  jj=l,neq 
10  s (ii, j j )=0 . 0 
12  s(l,l)=sl 
s(l,7)— si 

s(3,3)=12.*s4/(sl**2) 

s(3,5)=-6.*s4/sl 

s(3,9)=-s(3,3) 

s(3,ll)=s(3,5) 

s(4,4)=s2 

s(4,10)=-s2 

s(5 ,5)=4.*s4 

s(5,9)=6.*s4/sl 

s (5 , ll)=2.*s4 

s(7,7)=sl 

s(9,9)=12.*s4/(sl**2) 
s(9,ll)=6.*s4/sl 
s (10 , 10)=s2 
s(ll,ll)=4.*s4 

if  (mrel(id,l) .ne.0. and.mrel(id,2) .ne.0)  go  to  35 
if  (mrel(id,l) .ne.0.and.mrel(id,2) .eq.0)  go  to  30 
if  (mrel(id, 1) . eq.0 . and.mrel(id, 2) .ne. 0)  go  to  25 
full  continuity 
s(2,2)=12.*s3/(sl**2) 
s(2,6)=6.*s3/sl 


subroutine  beam2  (id,i,j) 

common/ par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(2S) ,ir(25 ,6) ,ui(25 ,6) 
common/mem/  mtype(50) ,nd(50,2) ,mid(50) ,mlc(50) ,alfa(50) , 

1  mrel(50,2) ,thetai(5Q) .thetaj (50) 

common/mlib/  xa(25) ,zi(25) ,yi(25) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common/mat/  e(5) ,sigma(5) ,epsiln(5) ,pr(5) ,g(5) ,rho(5) 
common  /stiff,  s (12, 12) ,r(3 ,3) ,t (12, 12) ,st (12, 12) ,tf (12) ,p(12) 
common  /xmss/  xms(12) 

double  precision  s,  r,t,st,tf ,sl,s2,s3,sl,dsqrt ,xp,yp,xms 
xp=x(j)-x(i) 

yp=y(j)-y(i) 

s l=dsqrt (xp**2+yp**2 ) 

c  generate  the  element  stiffness  matrix  (s) 

m=mid(id) 
n=mtype(id) 
ym=e(m) 
area=xa(n) 
rh=rho(m) 
sl=xa(n)*Ym/sl 
s2=zi(n)*ym/sl 
s3=3 . *ym*zi (n) / (s 1**3 ) 
do  10  ii=l,neq 
do  10  jj-l,neq 
10  s(ii, j j)=0. 
s(l,l)»sl 
s(l,4)— 3l 
s(4,4)*sl 

if  (mrel(id, 1) .ne.0.and.mrel(id,2) .ne.O)  go  to  35 
if  (mrel(id, 1) .ne.0.and.mrel(id,2) . eq.O)  go  to  30 
if  (mrel(id, 1) .eq.0.and.mrel(id,2) .ne.O)  go  to  25 

c  full  continuity 

s(2,2)=12.*s2/(sl**2) 
s(2,3)=6.*s2/sl 
s(2,5)— s(2,2) 
s(2,6)=s(2,3) 
s(3,3)=4.*s2 
s(3,5)— 6.*s2/sl 
s(3,6)=2.*s2 
s(S,5)-s(2,2) 
s  (5, 6)— 8(2,3) 
s(6,6)ss4.*s2 
go  to  35 

c  hinge  reight  end 

25  s(2,2)=s3 
s(2,3)=s3*sl 
s(2,5)»- s3 
s (3 ,3)=s (2 , 3)*sl 
s(3,5)— s(2,3) 
s (5 ,5)=s3 

c  hinge  left  end 

30  s(2,2)=s3 
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s(2,5)*-s3 
s (2,6)»s3*sl 
s (5 ,S)»s3 
s(5,6)*-s(2,6) 
s(6,6)*s(2,6)*sl 
symmertize  (s) 

35  do  15  ii=l,neq 
do  15  jj=ii,neq 
15  s(jj,ii)=s(ii,jj) 

transform  (s)  to  global  coordinates 
call  rotate  (l,id) 

Fora  Mass  matrix 
go  to  (99,101)  .method 
101  do  100  ii*l,neq 
xms(ii)=0. 

100  continue 

cl=rh*area*s 1* . 5 
c2=rh*area*s 1**3/ 24 . 
xms(l)*cl 
xms(2)*cl 
xms(4)=cl 
xms(5)acl 
xms (3)=c2 
xms (6)=c2 
39  return 


subroutine  bound (ibnd, high) 

common/par/  method ,  kind , numnp ,  ns t rut ,  nbeam ,  numem , nmp , nmre  1 ,  mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif  .wstif  ,wrstif  ,wlod 

common/slv/  a(50,25) ,b(50) 
common/xmd/  xmass(50) ,darap(50,25) 

common  /nod/  x(25) ,y(25) ,2(25) ,ntype(25) , ir(25 ,6) ,ui(25 ,6) 
double  precision  a,b,xmass .damp 
go  to  (20,25),  ibnd 
20  nhw*mband-l 

do  60  n= 1 , numnp 

compute  control  counters 
do  5  kk= 1 , nq 
k=nq*n- (nq-kk) 
j  ls'k-nhw 
if(jl)  10,10,15 
10  ii=l 

go  to  30 
15  ii=j  1 

reduce  row  of  (A) 

30  if  (ir(n,kk) . eq. 0)  go  to  5 
if  (high.Le.l.)  go  to  81 
a(k,l)-a(k,l)*high 
go  to  5 

81  go  to  (35,34),  method 

34  damp(k,l)=1.0 

35  a(k,l)=1.0 

reduce  mass  matrix 
go  to  (37,36)  .method 

36  xmass(k)=1.0 

37  do  40  j=l,nhw 
l=j+l 

go  to  (40,48),  method 
48  damp(k, 1)=0 . 0 
40  a(k,l)=0.0 

reduce  column  of  (A) 
if(k-l)  5,5,50 
50  j j=k-l 

do  55  j=ii, j j 
kl=k- j+1 

go  to  (55,54),  mehtod 

54  damp( j ,kl)=0 . 

55  a( j ,kl)=0 . 0 
5  continue 

60  continue 
go  to  85 

reduce  (B) 

25  do  80  n=l, numnp 
65  do  70  kk=l,nq 
k=nq*n- (nq-kk) 
if  (ir(n,kk) .eq.0)  go  to  70 
75  b(k)=ui(n,kk) 

70  continue 
80  continue 
85  continue 


\T.r. 


subroutine  choles(it) 

common/ p ar /  method , kind , numnp , ns  t  rut , nbeam , numem , nrap , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif ,wrstif ,wlod 

common/ cho l/xmc(50,25) 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 

double  precision  xmc,diagl,airl,suml,dsqrt,xdp,xld,x2d 

if  (it.ge.2)  go  to  123 

nhw=mband-l 

n=numeq 

100  nred=0 
itrig=0 
lim=mband 

101  if (nred+l-n)  102,500,500 

102  nred^nred+l 
diagls'xmc  (nred ,  1 ) 

if  (diagl-1.0d-30)  601,601,110 

110  diagl=dsqrt (diagl) 

go  to  60 J  if  matrix  is  singular  or  not  positive  define 
divide  roe  by  square  root  of  diagonal  element 

111  do  113  j=l , lim 

113  xmc(nred, j)=xmc(nred, j)/diagl 

reduce  remaining  block  of  numbers 
201  do  251  i=l,nhw 
l=nred+i 

if(l-n)  211,211,251 
211  airl=xmc(nred,i+l) 

skip  this  row  if  multiplier  air  is  zero 
if(airl)  221,251,221 
221  do  2.31  j=i,nhw 

m=l+j -i 

231  xmc(l,m)=xmc(l,m)-airl*xmc(nred, j+1) 

251  continue 
go  to  101 

601  itrig=nred 

500  if (itrig)  600,610,600 
singular  matrix 
600  write(6,602)  itrig 

602  format ( lx, ' Singular  Matrix  at  Cholesk@a  NRED  =’,i4) 

610  continue 

reduce  the  right  hand  sides 
123  continue 
nred=0 

301  if (nred+l-n)  302,401,401 

302  nredsmred+l 

divide  row  by  square  root  of  diagonal  element 
xdp(nred,3)=xdp(nred, 3)/xmc(nred, 1) 

reduce  remaining  block  of  numbers 
do  351  i=l,nhw 
l=nred+i 

if(l-n)  311,311,351 

311  xdp( 1 ,3)=xdp(l ,3) -xmc(nred, i+l)*xdp(nred, 3) 

351  continue 


go  to  301 

back  substitution 
401  xdp(n,3)=xdp(n,3)/xmc(n, 1) 
nl=n-l 

do  451  ii=l,nl 
i=n-ii 
suml=0 . 0 
do  421  j  j = 1 , nhw 
m=j j+i 

if(n-m)  451,421,421 
421  suml=suml+xnc(i,  j  j+l)*xdp(m,3) 

451  xdp(i,3)=(xdp(i,3)-suml)/xmc(i,l) 
25  continue 
700  continue 
return 
end 


subroutine  curvbm  (id,i,j) 

common/ par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common/nod/  x(25) ,y(25) ,z(25 ) ,ntype(25) , ir(25 , 6) ,ui(25,6) 
common/ mlib/xa (25) ,zi(25) ,yi(25) ,rr(25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common/ mem/ mtype (SO) ,no(50,2) ,mid(50) ,mlc(50) ,alfa(50) , 

1  mrel(50 ,2) , thetai(50) .thetaj (50) 

common/mat/ ee(5) , sigma (5) ,epsiln(5) ,pr(5),gg(5) ,rho(5) 
common/stif/  s (12 , 12) ,q(3 , 3) , t (12, 12) ,st (12, 12) , tf (12) ,p(12) 
double  precision  s ,q,t ,st ,tf ,r ,beta,cb,sb,al ,bl,cl ,dl,el, 

1  a,t7"c,d,e,f  .g.sljdsin.dcos  ,thi,thj  ,dabs 

m=mid(id) 
n=smtype(id) 
ym=ee(m) 
r=rr(n) 

thi=thetai(id)/57. 2957795 
thj=thetaj(id)/57. 2957795 
beta=dabs (thj -thi) 
do  10  ii=l,neq 
do  10  jj=l,neq 
10  s(ii,jj)=0.0 

generate  element  stiffness  matrix  (S) 
cb=dcos (beta) 
sb=dsin(beta) 
al=beta-sb 
bl=cb+0 . 5*sb*sb- 1 . 0 

cl»l . 5*beta-2 . 0*sb+(ds in (2 . 0*beta) )/4 . 0 

dl=l . 5*beta- (dsin(2 . 0*beta) ) /4 . 0 

el=cb-l . 0 

a=el*el/beta-dl 

b=bl-al*e 1/beta 

c=al*dl“bl*el 

d=al*al/beta-cl 

e=cl*el-al*bl 

f=bl*bl-cl*dl 

g=bl*(bl-2 .*al*e 1/bet a )+cl*(el*e 1/bet a-dl)+al*al*dl/beta 

sl=(ym*zi(n)/g)/ (r**3) 

s (1 , l)=sl*a 

s(l,2)=sl*b 

s  (1 ,  3)=sl*c*r/beta 

s  ( 1 ,4)=-sl*(a*cb+b*sb) 

s(l,S)=sl*(a*sb-b*cb) 

s ( 1 ,6)=sl*(a*(cb-l . )+b*sb-c/beta)*r 

s(2,2)=sl*d 

s (2 ,3)=sl*e*r/beta 

s(2,4)=-sl*(b*cb+d*sb) 

s (2,5)=sl*(b*sb-d*cb) 

s(2,6)=sl*(b*(cb-l.  )+d*sb-e/beta)*r 

s (3 ,3)=sl*f*r*r/beta 

s(3 ,4)=-sl*(c't’fcb+e*sb)*r/beta 

s(3,5)=sl*(c*sb-e*cb)*r/beta 

s(3,6)=sl*(c*(cb-l.  )"re5'rsb-f )*rlVr/beta 


s(4,5)=-sl*b 

s  (4 , 6)=s  l*c*r/beta 

s (5 ,5)=s l*d 

s(5 , 6)=-sl*e*r/beta 

s(6,6)=sl*f*r*r/beta 

symmetrize  (S) 
do  15  ii=l,6 
do  15  jj=l,6 
s(jj,ii)=s(ii,jj) 

15  continue 

Transform  (S)  to  global  coordinates 
stl=dsin(thi) 
ctl=dcos (thi) 
st2=dsin(thj ) 
ct2=dcos (thj ) 
do  20  ii=l ,6 
do  20  jj=l,6 
20  t ( ii , j j )=0 . 
t(l,l)=ctl 
t(l,2)=stl 
t(2, l)=-stl 
t(2,2)=ctl 
t (3 , 3)=1 . 
t(4,4)=ct2 
t(4,5)=st2 
t(5 ,4)=-st2 
t(5 ,5)=ct2 
t(6,6)=l. 

call  rotate  (l,id) 

return 

end 


subroutine  dl  (i) 
integer  wstif .wrstif ,wlod 

common/par/  method ,  kind ,  numnp ,  ns trut ,  nbeara ,  numem ,  nmp ,  nmr e  1 ,  mband , 
1  nlnd,nlmera,neq,nq ,numeq,nlc,nif , wstif, wrst if ,wlod 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/dlod/  dt ,nti,ns(50 , 10) ,dl(50 , 10) ,ndof (10) ,ndof 1 
common/slv/  a(50,25) ,b(50) 
common/xmd/  xmass(SO) ,damp(50,25) 
common/ matrix/  la(50) ,tl(50) ,t2(50) ,f (50) 
double  precision  a,b,xmass ,damp,xdp,xld,x2d,tl,t2,f 
double  precision  df,xaml,xam2 

Find  the  forcing  fn  at  i'th  step 
do  150  ii=l,numeq 

Pick  out  ir  DOF  that  has  load 
do  160  jj=l,ndofl 
if  (ii. eq.ndof ( j j ) )  go  to  161 

160  continue 
f (ii)=0. 
go  to  150 

Pick  out  n'th  point  that  has  amplitude  change 

161  lc=la(ii) 

if  (i.eq.ns(ii, lc))  go  to  170 

df=(dl(ii, lc) -dl(ii, lc-1) )/ (ns(ii, lc) -ns (ii, lc-1) ) 
f (ii)=dl (ii , 1 c - 1 ) +df * ( i -ns ( i i , lc-1) ) 
go  to  150 

170  f (ii)=dl(ii, lc) 
la(ii)=la(ii)+l 

150  continue 

if  (wstif. eq.0)  go  to  155 
write  (6,2) 

2  format  ('  the  forcing  function  is  ') 
write  (6,1)  (f (ii) , ii=l ,nuraeq) 

1  format  (6el3.5) 

Form  effective  load  vector 

{[  K  ]-2/dt**2*[M]>,  and  1/dt**  [M] - .5*dt*[C] 

155  do  200  ii=l,numeq 
tl (ii)=0 . 
t2(ii)=0. 

call  range  (ii.nuraeq, mband, mg, mbd) 

do  200  ij=rag,mbd 

ms=ij -ii+1 

if  (ms)  201,201,202 

201  t2(ii)=t2(ii)+a( ij , ii-ij+1 )*xdp(ij ,2) 
tl(ii)=tl(ii)-damp(ij , ii-ij+1 )*xdp(ij , l)*.5/dt 
go  to  200 

202  if  (ms.eq.l)  go  to  203 
xam2=a(ii,ms) 
xaml=-damp(ii,ms)*.5/dt 
go  to  204 

203  xam2=a(ii,ms)-2.*xmass(ii)/dtlWr2 
xaml=-damp ( ii ,ms )* . 5 /dt+xmass ( ii ) /dt’Wr2 

204  t2(ii)=t2(ii)+xam2""xdp(ij  ,2) 
tl(ii)=tl(ii)+xaml*xdp(ij , 1) 

200  continue 


do  210  ii=l,numeq 
xdp(ii,3)=f (ii)-tl(ii)-t2(ii) 

210  continue 

call  choles(i) 

calculate  velocity  and  acceleration 
do  220  ii=l,nuoeq 

x2d(ii , 1 )=(xdp ( ii , 3 ) -2 . *xdp ( ii , 2 )+xdp ( ii , 1 ) ) /dt**2 
xld(ii,l)=(xdp(ii,3)-xdp(ii, 1) )/(2.*dt) 

220  continue 
return 


subroutine  d2  (i) 
integer  wstif .wrstif ,wlod 

common/par/  method , kind , numnp , nstrut , nbeao , numeo , nrnp , nmre 1 , oband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif .wrstif ,wlod 

common/ random/  irandm,ncvdf ,ntacv,nl( 10) ,n2( 10) ,ax(50,50, 10) , 

1  nt(50,50, 10) , lon,nroot,nsmax,corri 

common/dlod/  dt ,nti,ns (50 , 10) ,dl(50 , 10) ,ndof (10) ,ndofl 
common/ rrl/  zz(50,50,3) ,zl2(50 ,50,2) ,z2(50,50,2) 
common/ rr2/  rf (50,50) ,rz(50,50) ,rzl(50,50) ,rzl2(50,50) 
common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,La2(50,50) 
double  precision  al,a2,a3,xla,rf ,rz,rzl,rzl2,zz,zl2,z2,ddx 
Pick  out  Rff  at  time  step  i 
icount=l 

do  410  ii=l,numeq 
do  410  jj=l,numeq 
do  471  kk=icount ,ncvdf 

if  (ii.eq.nl(kk) .and. jj .eq.n2(kk))  go  to  411 
471  continue 

rf(ii, jj)=0. 
go  to  410 

411  icount=icount+l 
Lcl=La2(ii, j j) 

if  (i.eq.nt(ii, j j , lcl))  go  to  412 
Linear  interpolation 
ddx=(ax(ii, jj ,Lcl)-ax(ii, j j ,Lcl-l))/ 

1  (nt(ii, j j ,Lcl)-nt(ii, jj ,Lcl-l)) 

rf(ii, jj)=(ax(ii, jj ,Lcl-l)+ddx*(i-nt(ii, jj ,Lcl-l) ) )*dt**4 
go  to  410 

412  rf (ii, j j )=ax(ii,j j , lcl)*dt**4 
470  la2(ii, j j)=la2(ii, jj)+l 

410  continue 

Evaluate  A2  zz(i,j,2)  A2(T) 
do  420  ii=l,numeq 
call  range  (ii,numeq,mband,mg,abd) 
do  420  jj*l,numeq 
xla(ii, j j)=0. 

if  (a2(ii,ii) .eq. 1.0  . or . a2( j j , j j ) . eq. 1 . )  go  to  420 
do  421  kk=mg,mbd 

xla(ii, jj)=xla(ii, j j)+a2(ii,kk)*zz(kk, jj ,2) 

421  continue 
420  continue 

do  425  ii=l,numeq 

call  range  (ii,numeq,mband,mg,mbd) 

do  425  jj*ii,numeq 

rz(ii, jj)=0. 

if  (a2(ii,ii) .eq. 1.0.or.a2(j j , j j) .eq. 1. )  go  to  425 
do  426  kk»mg,mbd 

rz(ii, j j)=rz(ii, j j)+a2(ii,kk)*xla(j j ,kk) 

426  continue 
425  .continue 

if  (wstif.eq.0)  go  to  150 
write  (6,1) 

1  format  ('rz(i.j)') 
do  3  ii*l,numeq 


3  write  (6,2)  (rz(ii, j j) , jj=l,numeq) 

2  format  (6el3.5) 

Evaluate  A3  zz(i,j,l)  A3(T) 

150  do  430  ii=l,numeq 

call  range  (ii,numeq,mband,mg,mbd) 
do  430  jj3l,numeq 
xla(ii, jj)=0. 

if  (a3(ii,ii) .eq. 1.0.or.a3(jj , jj) .eq. 1. )  go  to  430 
do  431  kk=mg,mbd 

xla(ii, j j)=xla(ii, j j )+a3(ii,kk)*zz(kk, j j , 1) 

431  continue 
430  continue 

do  435  ii=l,numeq 

call  range  (ii,numeq, inband, mg, mbd) 

do  435  jj=ii,numeq 

rzl(ii, j j)=0. 

if  (a3(ii, ii) . eq. 1 . 0 . or . a3 ( j j , j j) . eq . 1 . )  go  to  435 
do  436  kk=mg,mbd 

rzl(ii, j j)=rzl(ii, jj)+a3(ii,kk)*xla(j j ,kk) 

436  continue 
435  continue 

if  (wstif.eq.0)  go  to  151 
write  (6,4) 

4  format  ('rzl(i,j)') 
do  5  ii=l,numeq 

5  write  (6,2)  (rzl(ii, j j ) , j j=l ,numeq) 

temporary  sum 

151  do  520  ii=l,numeq 
do  520  jj=ii,numeq 

520  rf (ii, j j )=rf (ii, j j )+rz(ii, j j)+rzl(ii, j j) 
return 
end 


subroutine  d3 

integer  wstif .wrstif ,wlod 

common/ par/  method , kind , numnp , nst rut , nbeam , numem , nrnp , nmre 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif .wrstif ,wlod 

common/ random/  irandm.ncvdf ,ntacv,nl(10) ,n2(10) ,ax(50, 50,10) , 

1  nt(50,50, 10) , lon,nroot,nsmax,corri 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/slv/  a(50,25) ,b(50) 

common/dlod/  dt,nti,ns(50, 10) ,dl(50, 10) ,ndof (10) ,ndofl 
common/matrix/  la(50) ,tl(50) ,t2(50) , f (50) 

•  common/kuz/  rx(50,50,3,8) ,ck(8) 

common/ rrl/  22(50,50,3) ,212(50,50,2) ,z2(50, 50 ,2) 
common/ rr2/  rf (50,50) ,rz(50 ,50) ,rzl(50,50) ,r2l2(50,50) 
common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,La2(50,50) 
common/eign/  eigvec(50,24) ,rho(24) ,a4(50,50) 
double  precision  a,b,xdp,xld,x2d,tl,t2,f ,rx,eigvec,rho,a4,ck 
double  precision  al,a2,a3,xla,rf ,rz,rzl,rzl2,zz,zl2,z2 
c  Evaluate  K  b  Z(j)T 

do  465  np=l,nroot 
c  first:  K  b  xdp(i,l)T  K 

do  445  ii=l,numeq 
tl(ii)=0. 

call  range  (ii.numeq, mband, mg, obd) 
do  445  jj=mg,mbd 
if  (xdp( j j , 1) .eq.0. )  go  to  445 
ms=j j -ii+1 

if  (ms)  446,  446,  447 

446  tl(ii)*tl(ii)+a(jj ,ii-j j+l)*eigvec(j j ,np) 
go  to  445 

447  tl(ii)=tl(ii)+a(ii,ms)*eigvec(j j ,np) 

445  continue 

do  300  ii=l,numeq 
do  300  jj=l,numeq 

300  xla(ii, j j )=tl(ii)*xdp( j j , 1) 
do  310  ii=l,numeq 
call  range  (ii.numeq, mband, mg, mbd) 
do  310  jj=l,numeq 
rz(ii, jj)=0. 

if  (a(ii, 1) .eq. 1. .or.a(j j , 1) .eq. 1. )  go  to  310 

do  311  kk=mg,mbd 

ms= j  j -kk+1 

if  (ms)  315,315,316 

315  rz(ii, j j )=rz(ii, j j )+xla(ii,kk)*a( j j ,kk- j j+l)*(corri*dt)**2 
go  to  311 

316  rz(ii, jj)=rz(ii, j j)+xla(ii,kk)*a(kk,ms)*(corri*dt)**2 

311  continue 

310  continue 

c  second:  K  b  Z(j-1)T  A2(j-1)(T)  and  K  b  Z(j-2)T  A3(T) 

do  450  ii=l,numeq 
call  range  (ii.numeq, mband, mg, mbd) 
do  450  jj=l,numeq 
xla(jj ,ii)=0. 

if  (a4(ii,ii) . eq. 1. 0.or.a4( j j , j j) . eq. 1. )  go  to  450 
do  451  kk*mg,mbd 
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xla(jj ,ii)=xla(jj,ii)+a4(ii,kk)*rx(jj ,kk,2,np) 

451  continue 
450  continue 

do  150  ii=l,numeq 

call  range  (ii,numeq,mband,mg,mbd) 

do  150  jj=l,numeq 

zl2(jj,ii,2)=0. 

if  (a3(ii, ii) . eq. 1 .0 .or . a3( j j , j j) . eq. 1 . )  go  to  150 
do  151  kk=mg,mbd 

zl2(jj,ii,2)=zl2(jj,ii,2)+a3(ii,kk)*rx(jj ,kk,l,np) 
151  continue 
150  continue 

third:  sum  of  above 
do  455  ii=l,numeq 
do  455  jj=l,numeq 

xla(ii, jj)=xla(ii, jj)+zl2(ii, jj ,2)-rz(ii, jj) 

455  continue 

fourth:  sum  *  Al(-T) 
do  460  ii=l,numeq 
do  460  jj=l,numeq 
rx(ii, j j ,3,np)=0. 

if  (al(jj , jj) .eq. 1.0.or.al(ii,ii) .eq. 1. )  go  to  460 
do  461  kk=l,nuraeq 

rx(ii, j j ,3 ,np)=rx(ii, j j ,3,np)+xla(ii,kk)*al(j j ,kk) 
461  continue 
460  continue 
465  continue 

Sum  of  above 
do  510  ii=l,numeq 
do  510  jj=l,numeq 
z2(ii, j j ,2)=0. 
rz(ii, j j)=0. 
do  510  np=l,nroot 

z2(ii, jj ,2)=z2(ii, jj ,2)+rx(ii, j j ,3 ,np)*ck(np) 

510  rz(ii, jj)=rz(ii, jj)+rx(ii, jj , 2 ,np)*ck(np) 
if  (wstif.eq.0)  return 
write  (6,1) 

1  format  ('z2(i,j,2)  matrix,  K  xdp  Z C j ) ’ ) 
do  4  ii=l,numeq 

4  write  (6,2)  (z2(ii, j j ,2) , j j=l,numeq) 

2  format  (6el3.5) 
write  (6,3) 

3  format  ('rz(i.j)  matrix,  K  xdp  Z(j-l)') 
do  5  ii=l,numeq 

5  write  (6,2)  (rz(ii, jj) , j j=l,numeq) 
return 

end 
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subroutine  d4 

integer  wstif ,wrstif,wlod 

common/par/  method , kind , numnp , nst rut , nbeam , numem , nrnp , nmre 1 , mband , 

1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod  ^ 

common/ random/  irandm.ncvdf , ntacv.nl (10) ,n2(10) ,ax(50,50, 10) , 

1  nt(50,50,10) ,lon,nroot,nsmax,corri 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/dlod/  dt ,nti,ns(50, 10) ,dl(50, 10) ,ndof (10) ,ndofl 
common/s lv/  a(50,25) ,b(50) 

common/ matrix/  la(50) , tl(50) ,t2(50) , f (SO)  * 

common/rrl/  zz(S0,50,3) ,zl2(50,S0,2) ,z2(50,50,2) 

common/ rr 2/  rf (50,50) ,rz(50,50) ,rzl(50,50) ,rzl2(50,50) 

common/ rr 3/  al(50,50) ,a2(50,50) ,a3(50,S0) ,xLa(50,50) ,La2(50,50) 

common/eign/  eigvec(50 ,24) ,rho(24) ,a4(50,50) 

double  precision  a,b,xdp,xld,x2d.tl,t2,f ,eigvec,rho,a4 

double  precision  al,a2,a3,xla,rz,rzl,rzl2,zl2,zz,rf ,z2  * 

c  Evaluate  K  xdp  xdp(T)  K(T) 

do  515  ii=l,numeq 
t2(ii)=0. 

call  range  (ii,numeq, mband, mg, mbd) 

do  515  jj=og,mbd  a 

if  (xdp(jj ,2) .eq.0. )  go  to  515  w 

ms=jj-ii+l 
if  (ms)  516,516,517 

516  t2(ii)=t2(ii)+a(jj ,ii-j j+l)*xdp(j j ,2) 
go  to  515 

517  t2(ii)=t2(ii)+a(ii,ms)*xdp(jj ,2)  ^ 

515  continue 

do  300  ii=l,numeq 
do  300  jj=l,numeq 
300  xla(ii,jj)=t2(ii)*xdp(jj,2) 
do  310  ii=l,numeq 

call  range  (ii.numeq, mband, mg, mbd)  > 

do  310  jj=l,numeq 
rzl(ii, j j)=0. 

if  (a(ii, 1) .eq. 1. -or . a(j j , 1) .eq. 1. )  go  to  310 
do  311  kk=mg,mbd 
ms=j j -kk+1 

if  (ms)  315,315,316  ^ 

315  rzl(ii, j j)=rzl(ii, j j )+xla(ii,kk)*a(j j ,kk- j j+l)*(corri*dt*’v2)**2 
go  to  311 

316  rzl(ii, j j)=rzl(ii, j j )+xla(ii,kk)*a(kk,ms)*(corri*dt**2)**2 
311  continue 

310  continue 

if  (wstif. eq.0)  go  to  333  J 

write  (6,13) 

13  format  ('  K  XDP  XDP(T)  K(T)  :') 
do  303  ii=l,numeq 

303  write  (6,2)  (rzl(ii, j j) , jj=l,numeq) 

c  Evaluate  E[z(i)z(i-1) ]  ' 

333  do  470  ii=l,numeq 

call  range  (ii.numeq, mband, mg, mbd) 
do  470  jj=l,numeq 
xla(ii, j j)=0. 
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if  (a4(ii, ii) .eq. l.O.or .a4(j j , j j ) .eq. 1 . )  go  to  470 
do  471  kk=mg,mbd 

xla(ii, j j)=xla(ii, j j)+a4(ii,kk)*zz(kk, j j , 1) 

471  continue 
470  continue 

do  5Z0  ii=l,numeq 

call  range  (ii,numeq,mband,mg,mbd) 

do  570  jj=l,numeq 

zl2(ii, j j ,2)=0. 

if  (a3(ii,ii) .eq. 1.0. or .a3(j j , j j ) .eq. 1 . )  go  to  570 
do  571  kk=mg , mbd 

zl2(ii, jj ,2)=a3(ii,kk)*zl2(j j ,kk, l)+zl2(ii, j j ,2) 

571  continue 
570  continue 

do  480  ii=l,numeq 
do  480  jj=l,numeq 

480  xla(ii, j j)=zl2(ii, j j ,2)+xla(ii, j j ) -z2(ii, j j ,  l)*dt**2 
do  482  ii=l,numeq 
do  482  jj=l,numeq 
zl2(ii, j j ,2)=0. 

if  (al(ii,ii) .eq. 1.0.or.al(jj , jj) .eq. 1. )  go  to  482 
do  483  kk=l ,numeq 

zl2(ii, j j ,2)=zl2(ii, j j ,2)+al(ii,kk)*xla(kk, j j) 

483  continue 
482  continue 

if  (wstif.eq.0)  go  to  150 
write  (6,1) 

1  format  ('zl2  (i,j)  matrix') 
do  22  ii=l,numeq 

22  write  (6,2)  (zl2(ii, j j ,2) , j j=l ,numeq) 

2  format  (6el3.6) 

Evaluate  rzl2(i,j)  =  A2  zl2(i,j,2)  A3(T) 

150  do  485  ii=l,numeq 

call  range  (ii,numeq,mband,mg,mbd) 
do  485  jj=l,numeq 
xla(ii, j j)=0. 

if  (a2(ii,ii) .eq. 1.0.or.a2(j j , jj) .eq. 1. )  go  to  485 
do  486  kk=mg,mbd 

xla(ii, j j)=xla(ii, j j)+a2(ii,kk)*zl2(kk, j j ,2) 

486  continue 
485  continue 

do  490  ii=l,numeq 

call  range  (ii,nuaeq,mband,mg,mbd) 

do  490  jj=l,numeq 

rzl2(j j , ii)=0. 

if  (a3(ii,ii) .eq. 1.0.or.a3(jj , jj) .eq. 1. )  go  to  490 
do  491  kk=mg,mbd 

rzl2(j j ,ii)=rzl2(j j , ii)+a3(ii ,kk)*xla( j j ,kk) 

491  continue 
490  continue 

if  (wstif.eq.0)  go  to  152 
write  (6,5) 

5  format  ('rzl2  (i,j)  matrix') 
do  6  ii*l,numeq 


6  write  (6,2)  (rzl2(ii, j j) , j j=l,numeq) 

Evaluate  K  xdp(i,2)  Z(j)T  A2(T)  and  K  xdp(i,2)  Z(j-1)T  A3(T) 
152  do  495  ii=l,numeq 

call  range  (ii,numeq,mband,aig,mbd) 
do  495.  jj=l,numeq 
xla(j j ,ii)=0. 

if  (a2(ii,ii) .eq. 1.0.or.a2(j j , jj) .eq. 1. )  go  to  495 
do  496  kk^mg.obd 

xla(j j ,ii)=xla(j j , ii)+a2(ii,kk)*z2( j j ,kk,2)*dt**2 
496  continue 
495  continue 

do  595  ii=l,numeq 

call  range  (ii,numeq,mband,mg,obd) 

do  595  jj=l,numeq 

zl2( j j , ii, 1)=0 . 

if.  (a3(ii,ii) .  eq.  1 . 0.or .  a3  ( j  j  ,  j  j ) .  eq .  1 . )  go  to  595 
do  596  kk=mg,mbd 

zl2(j j ,ii, l)=zl2(j j ,ii, l)+a3(ii,kk)*rz(j j ,kk)*dt**2 
596  continue 
595  continue 

if  (wstif.eq.O)  return 
write  (6,9) 

9  format  ('  K  xdp  Z ( j )  A2(t)') 
do  10  ii=l,numeq 

10  write  (6,2)  (xla(ii, j j) , j j=l,numeq) 
write  (6,11) 

11  format  ('  K  xdp  Z(j-l)  A3(t)’) 
do  12  iissl,numeq 

12  write  (6,2)  (zl2(ii, j j , 1) , j j*l,numeq) 
return 


subroutine  do  (iv) 
integer  wstif ,wrstif ,wlod 

common/par/  method , kind , numnp , ns  t rut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,nuaeq ,nlc,nif ,wstif .wrstif ,wlod 

comaon/sol/  xdp(50 ,3) ,xld(50,2) ,x2d(50,3) 
common/dlod/  dt,nti,ns(50, 10) ,dl(50, 10) ,ndof (10) .ndofl 
common/xmd/  xoass(SO) ,damp(50 ,25) 
common/ matrix/  La(SO) ,tl(50) ,t2(50) ,f (50) 
common/ rest/  res (50) 

common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,La2(50,50) 
double  precision  xdp,xld,x2d,xmass ,damp,tl,t2, f ,df 
double  precision  al>a2,a3,xLa,res 
Find  the  forcing  fn  at  i'th  step 
do  150  ii=l,numeq 

Pick  out  #  DOF  that  has  load 
do  160  jj=l, ndofl 
if  (ii.eq.ndof(jj))  go  to  161 

160  continue 
f(ii)=0. 
go  to  150 

Pick  out  n'th  point  that  has  amplitude  change 

161  Lc=la(ii) 

if  (iv.eq.ns(ii.Lc))  go  to  170 

df=(dl(ii,Lc)-dl(ii, lc-l))/(ns(ii, lc)-ns(ii, lc-1)) 
f (ii)=dl(ii , lc-l)+df*(iv-ns(ii, lc-1)) 
go  to  150 

170  f (ii)=dl(ii,lc) 
la(ii)=la(ii)+l 
150  continue 

form  effective  load  vector 
do  200  i.i=l,numeq 
tl(ii)=0. 

call  range  (ii,numeq,mband,mg,mbd) 
do  200  jj=mg,mbd 

if  (xdp( j j , 1) . eq.0. .or . a3(ii, j j) . eq.0. )  go  to  200 
tl(ii)*tl(ii)+a3(ii, jj)*xdp(jj , 1) 

200  continue 

do  205  ii=l,numeq 
205  t2(ii)=2.*xmass(ii)*xdp(ii,2) 
do  210  ii=l,numeq 

210  xdp(ii,3)=t2(ii)+tl(ii)+(f(ii)-res(ii))*dt**2 
call  choles(iv) 

calculate  velocity  and  acceleration 
do  220  ii=l,numeq 

x2d(ii , l)=(xdp(ii, 3) -2 .*xdp(ii, 2)+xdp(ii, 1) )/dt**2 
xld(ii,l)=(xdp(ii,3)-xdp(ii,l))/(2.*dt) 

220  continue 
return 
end 
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subroutine  d6  (iv, irandm) 
integer  wstif ,wrstif ,wlod 

common/par/  method ,  kind , numnp ,  nstrut ,  nbeam ,  numem , nrnp ,  runre  1 ,  mband 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif .wrstif ,wlod 

common/ sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/dlod/  dt ,nti,ns (50 , 10) ,dl(50, 10) ,ndof (10) ,ndof 1 
common/xmd/  xmass(SO) ,damp(S0,2S) 
common/ rest/  res (50) 

common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,La2(50,50) 
common/ rrl/  zz(50,50,3) ,zl2(5Q,50,2) ,z2(5Q,5Q,2) 
common/nod/  x(25) ,y(2S) ,z(25) ,ntype(25) ,ir(25,6) ,ui(25,6) 
common/eign/  eigvec(50,24) ,rho(24) ,a4(50,5G) 
dimension  res  1(50, 2) 

double  precision  xdp,xld,x2d,xmass .damp , aaa, eigvec,rho,a4 
double  precision  al,a2,a3,xLa,dxdp,zz,zl2,z2,res,resl 
c  evaluate  the  restoring  force 

if  ( irandm . eq . 2 )  go  to  320 
do  290  ii=l,numeq 
290  res(ii)»0. 

do  310  id=l, numem 
call  restor  (id,iv,l) 

310  continue 

call  rbound 
return 

c  Move  A2  to  A4;  where  A4  =  A2(j-1) 

320  do  150  ii=l,numeq 
do  150  jj=l,numeq 
150  a4(ii,jj)=a2(ii,jj) 

c  evaluate  the  equivalent  stifness  matrix 

do  330  it=l , numnp 
do  330  is=l,nq 

if  (ir(it,is) .eq. 1)  go  to  330 
ik=it*nq - ( nq - is ) 
aaa=xdp(ik,3) 

329  4xdp=aaa/333 . 

if  (dxdp.eq.0.)  go  to  380 
do  340  nn=l , 2 
do  361  im=l ,numeq 
361  res(im)=0. 

if  (nn.eq.2)  go  to  341 
xdp ( ik , 3 ) =aaa+dxdp 
go  to  350 

341  xdp(ik,3)=aaa-dxdp 
350  do  360  id=l, numem 

call  restor  (id,iv,nn) 

360  continue 

do  370  ii=l,numeq 
370  resl(ii,nn)=res(ii) 

340  continue 

if  (wstif. eq.0)  go  to  380 
write  (6,7)  ik 

7  format  (’dof  =  ' , 14 , '  resl(ii.l),  and  resl(ii,2)  are:') 
do  465  j5=l ,2 

465  write  (6,1)  (resl(i4,  j5)  ,i‘4=l,numeq) 

145 


380  do  390  ii=l,numeq 

if  (dxdp.eq.O.)  go  to  395 
a2(ii,ik)=(resl(ii, l)-resl(ii,2))/ (2.*dxdp) 
go  to  390 

395  a2(ii, ik)=a2(ii,ik) 

390  continue 

do  385  ii=l,numeq 

385  x2d(ii,3)=(resl(ii, l)+resl(ii,2) )/2. 

xdp(ik,3)aaaa 
330  continue 

do  430  ii=l,numeq 
430  res(ii)=x2d(ii,3) 

write  down  the  stiffness  matrix 
if  (wstif.eq.0)  go  to  405 
do  415  ii=l,numeq 

415  write  (6,1)  (a2(ii, jj) , j j=l,numeq) 

405  call  sbound(l) 
call  rbound 

if  (wrstif .eq.0)  go  to  410 
write  (6,2) 
do  420  ii=l,numeq 

420  write  (6,1)  (a2(ii, j j) , jj=l,numeq) 
compute  a2  matrix 
410  do  400  ii=l,numeq 
do  400  jj=l,niimeq 
a2(ii, jj)=-a2(ii, jj)*dt**2 
if  (ii.ne.jj)  go  to  400 
a2 ( ii , j  j )=a2 (ii,jj)+2. *xmas  s ( ii ) 

400  continue 

1  format  (6el3.6) 

2  format  (/6x,'THE  EQUIVALENT  STIFFNESS  MATRIX  IS 
return 


subroutine  d7 

integer  wstif .wrstif ,wlod 

common/par /  method .kind , numnp , ns t rut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif .wstif .wrstif ,wlod 

common/ dlod/  dt ,nti,ns(50 , 10) ,dl(50 , 10) ,ndof (10) ,ndof 1 
common/ rrl/  zz(50,50,3) ,212(50,50,2) ,z2(50,50,2) 
common/ rr2/  r£(50,50) ,r2(50,50) ,rzl(50,50) ,rzl2(50,50) 
common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,La2(50,50) 
double  precision  zz,2l2,22,rf ,rz,rzl,rzl2,al,a2,a3,xLa 
This  subroutine  evaluate  E  [Z(j+1)  2(j-l)  ] 
do  200  ii=l, numeq 
call  range  (ii .numeq, mband, mg, mbd) 
do  200  jj=l, numeq 
xla(ii, jj)=0. 

if  (a2(ii, ii) .eq. 1 .O.or . a2(j j , j j) .eq. 1.0)  go  to  200 
do  210  kk=mg,mbd 

xla(ii, jj)=xla(ii, j j )+a2(ii,kk)*zl2(kk, jj,2) 

210  continue 
200  continue 

do  220  ii=l, numeq 

call  range  (ii, numeq, mband, mg, mbd) 

do  220  jj=l, numeq 

rz(ii, j j )=0 . 

if  (a3(ii,ii).eq. 1.0.or.a3(jj, jj) .eq.1.0)  go  to  220 
do  230  kk=mg,mbd 

rz(ii, j j )=rz(ii, j j )+a3(ii,kk)*zz(kk, j j , 1) 

230  continue 
220  continue 

do  240  ii=l, numeq 
do  240  jj=l, numeq 

240  rz(ii, j j)=rz(ii, j j)+xla(ii, j j)-z2(ii, j j , l)*dt**2 
do  250  ii=l, numeq 
call  range  (ii.numeq, mband, mg, mbd) 
do  250  jj=l, numeq 
rf (ii, j j)=0. 

if  (al(ii, ii). eq.1.0. or. al(jj,jj). eq.1.0)  go  to  250 
do  260  kk=mg,mbd 

rf (ii, j j)=rf (ii, j j )+al(ii,kk)*rz(kk, j j) 

260  continue 
250  continue 
return 
end 


subroutine  damping 

common/par/  method .kind , nuranp , ns trut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd.nlmem.neq.nq.numeq.nlc.nif .wstif .wrstif ,wlod 

common/dlod/  dt,nti,ns(50,10),dl(50,10) ,ndof ( 10) ,ndof 1 
coraraon/slv,/  a(50,25) ,b(50) 
common/xmd/  xmass(50) .damp (50, 25) 
common/dya/  mass , inlod , alpha , beta , mdi 
double  precision  a.b.xmass .damp 
do  100  jj=l, mband 
do  100  ii=l,numeq 
if  (jj.eq.l)  go  to  101 
damp(ii, j j)=beta*a(ii, j j) 
go  to  100 

101  danrp(ii,  j  j  )=alpha*xmass(ii)+beta*a(ii,  j  j) 

100  continue 
return 
nd 


subroutine  died 
integer  wstif .wrstif ,wlod 

common/par/  method , kind , numnp , ns t rut , nbea m , numem , nrnp , nmre 1 , mband , 
1  nlnd, n lmem,neq,nq, numeq, nlc.nif, wstif .wrstif ,wlod 

common/control/  ivelo.iacc 

common/ random/  irandm.ncvdf .ntacv.nl (10) ,n2(10),ax(50,50,10), 

1  nt (50, 50, 10), loh .nroot .nsmax.corri 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/dlod/  dt,nti,ns(50, 10) ,dl(50, 10) ,ndof (10) .ndofl 
common/slv/  a(50 ,25) ,b(50) 
common/xmd/  xmass(50) ,damp(50,25) 
common/chol/xmc(50 ,25) 

common/ matrix/  la(50) ,tl(50) ,t2(50) ,f (50) 

common/kuz/  rx(50 ,50 ,3 , 8) , ck(8) 

common/ rrl/  zz (50, 50, 3), z 12 (50, 50, 2), z2 (50, 50, 2) 

common/ rr2/  rf(50,50),rz(50,50),rzl(50,50),rzl2(50,50) 

common/ rr3/  al(50,50),a2(5G,50),a3(50,50) ,xLa(50,50) ,La2(50,50) 

common/eign/  eigvec(50 , 24) , rho(24) , a4(50 , 50) 

common/ cross/  w(50,50) ,aa(50,50) ,vz(50,5G) ,az(50,50) ,av(50,50) 
common/ icross/  icros ,  iw ,  iaa ,  ivz ,  iaz ,  iav 

common/ flagw/  inpt , ifpt , jpnp , intpt , iftpt ,  jpnt , ip lot ,meanw, iwvar 
double  precision  a,b,xmass .damp ,xdp ,xld,x2d, tl , t2 , f ,xmc 
double  precision  al,a2,a3,xla,rz,rzl,rzl2,zl2,zz,rf 
double  precision  eigvec,  rho ,a4,z2 , ck, rx,  w,aa,vz,az, av 

This  subroutine  proceed  the  direct  integration  by  using 
Central  Difference  method 
open(unit=10,file='plotout.mean.cd' ,status=' new' ) 
open(unit=ll,file='plotout.var.cd' ,status='new' ) 
read  (5,1)  inpt , ifpt , jpnp, intpt , iftpt , jpnt , init , iplot ,meanw, iwvar 
write  (6,6)  inpt , ifpt , jpnp , intpt , iftpt , jpnt 
write  (6,7)  init, iplot 
write  (6,8)  meanw, iwvar 
if  (init.eq.0)  go  to  100 
do  110  i=l , numeq 

read  (5,2)  xdp(i,2) ,xld(i,2) ,x2d(i,2) 

110  continue 
go  to  111 

100  do  120  ii=l, numeq 
xdp(ii,2)=0. 
xld(ii,2)=0. 
x2d(ii,2)=0. 

120  continue 

Evaluate  the  Initial  displacement 

111  do  140  ii=l, numeq 

xdp(ii, l):axdp(ii,2)-dt*xld(ii,2)+.5*x2d(ii,2)*dt**2 
140  continue 

Evaluate  [C]*.5/dt+[M] /dt**2 
do  300  ii*l,numeq 
do  300  jjal,mband 
if  ( j j . eq . 1 )  go  to  301 
xmc(ii , j  j )=damp( ii , j j )*. 5/dt 
go  to  300 

301  xmc(  ii  ,  j  j  )=damp(  ii,  j  j  )*.  S/df-xmass  ( ii)  /dt*-^ 

300  continue 


write  (6,12) 

find  the  highest  eigenvalue 
do  148  ii=l,numeq 
do  148  jj=l,mband 

148  rzl(ii, jj)=a(ii, jj) 

call  higheig  (nmc,numeq,mband) 

write  (6,14)  rho(8),nmc 

write  (6,11)  (eigvec(ii,8) ,ii=l,numeq) 

nwr=0 

go  to  (145,146)  iranda 

Modal  analysis 

146  call  bound  (1.1.0E+15) 

if  (wstif.eq.O)  go  to  200 
do  210  ii=l,numeq 

210  write  (6,11)  (a(ii, jj) , jj=l,mband) 

200  if  (nroot.gt.l)  go  to  340 

call  loweig  (nmc,numeq,oband) 

write  (6,15)  rho(l),nmc 

write  (6,11)  (eigvec(ii, 1) , ii=l ,numeq) 

go  to  147 

340  call  sspace  (nroot.nsmax) 
write  (6,16) 

write  (6,11)  (rho(ii) ,ii=l,nroot) 
write  (6,17) 
do  342  ii=l,nroot 

write  (6,11)  (eigvec(jj ,ii) , j j=l,numeq) 

342  continue 

147  do  360  ii«l,numeq 
do  360  jj=l,mband 

360  a(ii, j j)=rzl(ii, jj) 

evaluate  A1,A2,A3 
do  402  ii'=l,numeq 
do  402  jj=l,mband 
al(ii, j j+ii-l)=damp(ii, j j)*dt*.5 
a2(ii, j j+ii-l )*-a(ii,jj)*dt**2 
a3(ii,jj+ii-l)=al(ii,j j+ii-l) 
a4(ii, j j+ii-l )=a2(ii, j j+ii-l) 
if  (jj.ne.l)  go  to  402 

403  al(ii, jj+ii-l)=al(ii,j j+ii-l )+xmass (ii) 
a2(ii, j j+ii-l )=a2(ii, j j+ii-l )+2.*xaass (ii) 
a3(ii, j j+ii-l )=a3(ii,j j+ii-l) -xoass (ii) 
a4(ii, j j+ii-l )=a2(ii, j j+ii-l) 

402  continue 

symmetric 
do  404  ii=l,numeq 
do  404  j j=ii+l ,numeq 
al(jj,ii)=al(ii,jj) 
a2(jj ,ii)=a2(ii, j j) 
a3( j j , ii)=a3(ii, j j) 
a^(jj ,ii)=a4(ii, jj) 

404  continue 

A  inverse 

call  matinv  (numeq.wstif ) 
call  sbound  (4) 


145  do  130  ii*l, numeq 
la(ii)«l 

130  continue 

do  131  ii*l, numeq 
do  131  jj*l, numeq 

131  la2(ii,jj)*l 

Start  tha  iteration 
do  1000  i*l,nti 
call  dl  (i) 

go  to  (400,408),  irandm 
408  call  d2  (i) 

Evaluata  ck(np) 
do  440  np*l,nroot 
ck(np)*0. 
do  440  ii*l, numeq 
if  (xdp(ii,2) .aq.0. )  go  to  440 
ck(np)*ck(np)+eigvec( ii ,np)*xma*e( ii)*xdp( ii  ,2) 

440  continue 
call  d3 
call  d4 

TOTAL  SUM 
do  500  ii*l, numeq 
do  500  jj*ii, numeq 

rf(ii.JJ)-rf(ii,jJ)+rzl2(ii,jj)«r*l2(JJ,ii) 
rf (ii, j j )*rf (ii, j j)-xla(ii, j j )-xla( j j , ii) 
rf (ii, j j)*rf (ii, j j )-zl2(ii , j j , 1) -zl2( j j  ,  ii  .  U+rzl  ( li ,  j  j  ) 
500  continue 

do  505  jj*l, numeq 
do  505  ii*j)+l , numeq 
rf(ii, jj)-rf(J) ,ii) 

505  continue 

if  (wstif^eq.0)  go  to  515 
write  (6,9) 

9  format  ('  the  total  sum  matrix) 
do  525  ii*l, numeq 

525  write  (6,11)  < eff ii , j j ). j j«l .numeq > 

Evaluate  zz(ii,jj,3) 

515  do  540  ii«l, numeq 
do  540  jj*l, numeq 
xla(ii,jJ)-0. 

if  ( al  (  ii  ,  ii  )  .  eq  1.0  or  el  jj.jj  eq  1  go  to  5*»C 
do  541  kk*l .numeq 

xla(ii,jj  j*xle:  ii.jj;*ei  n,**.  *rf  "u,’j 
541  continue 
5*0  continue 

do  550  n*l, numeq 
do  550  j)*ii, numeq 
zz( ii, j: ,3)-o 

i t  '  *  1'  j  J  ,  J J  1  eq  I  -  or  e 1  eq  1  go  to  *  5  C 

do  551  kk* 1 , numeq 

zz'  ii ,  j  j  ,  3  *zz'  ii .  j ;  ,  2  «xle  **:  ;  ,  <ut 

551  continue 
550  continue 

do  555  j;* I, numeq 


555 


do  555  ii»jj,miffl«q 
if  (ii.eq.jj)  go  to  555 
*2(11. jj ,3)»zz(j j ,ii,3) 
continue 


if  (icros.«q.O)  go  to  400 


-00 

1Q0C 

1 


if  (ivz.eq.l)  call  svz  (i.nwr)  • 
if  (iaz.aq.1)  call  saz  (i.nwr) 
call  d7 

if  (iav.eq.l)  call  sav  (i.nwr) 
if  (iaa.aq.1)  call  saa  (i.nwr) 
if  ( iw  aq.l)  call  sw  (i.nwr) 
w.ita  down  tha  results 
call  writa  ri,nwr) 
ccntmua 
format  (10i5) 
format  ( 3  £  10 . 5  ) 

format  (9(/),5x,’  INITIAL  #  DOF  FOR  PRINT  OUT  (INPT) 

/ / / 5x , '  FINIAL  U  DOF  FOR  PRINT  OUT  [IFPTJ  ■  ’,15, 

INCREMENT  OF  DOF  FOR  PRINT  OUT  [JPNP]  ■'.i5, 
INITIAL  TIME  NUMBER  FOR  PRINT  OUT  [INTPT]  ■' , 15 
FINIAL  TIME  NUMBER  FOR  PRINT  OUT  [ IFTPT)  -',i5, 

’  .15) 


’.15, 


/// 5x, 
t ! /lx, 
:  i  lx, 
5x. 


INCREMENT  OF  TIME  FOR  PRINT  OUT  [JPNT] 


:  format  ( 9 ( /). 5x .’ INITIAL  CONDITION  [INIT]  -  ' . i5 , 


%I 


/  5  x . 
/5x, 
I  ‘lx, 
5x. 
/  5x , 


0  GENERATE  TO  BE  EQUAL  ZERO’ 

1  READ  FROM  DATA  CARD’ 

IPLOT  ]  -  ’ ,i5, 

0  DIRECTLY  WRITE  DOWN  FOR  PRINT  OUT’ 
1  WRITE  DOWN  FOR  PLOTTING  MANNER’) 


9  format 


i5  . 


)X 

5x 


'FLAG  FOR  WRITING  DOWN  MEAN  RESPONSE  [  MEANW 


IWVAR 


.  <• 


NO  , / 5x , ' :  1  YES', 

lx ,  FLAG  FOR  WRITING  DOWN  VARIANCE  RESPONSE 
i5  .  5x . '  0  NO’  ./5X. ’ .  1  YES’ ) 

format  6a  13  5  j 

format  '  I0<\  .  10x,’  THIS  IS  SOLUTION  OF  C  D.  METHOD’) 

format  3x,'THE  HIGHEST  FREQUENCY  IS  :  ’ ,a20  9. 

3x  NUMBER  OF  ITERATION  OF  FINDING  HIGHEST  FREQUENCY  IS 
1 5x ,  THE  CORRESPONDING  EIGENVECTOR  IS  : ' ) 
format  3x  .  THE  LOWEST  FREQUENCY  IS  :  ’,a20.9. 

3x' NUMBER  OF  ITERATION  OF  FINDING  LOWEST  FREQUENCY  IS  ; ’ . i5 , 
1 5 x .  THE  CORRESPONDING  EIGENVECTOR  IS  ’ ) 


15  , 


16 


format 

format 

return 

and 


5x 

3x 


THE  EIGENVALUES  ARE 
THE  EIGENVECTOR  ARE 


* 


'1 


'A 


a 


-  a  m  M  m  m  ^  a  ^  m  M 


subroutine  dicdn 
integer  wstif.wrstif ,wlod 

common/engy/  strain(ll,ll,10,2) ,energd(10) ,dv(2) 
eommon/par /  method , kind , numnp , ns trut , nbe am , numem , nrnp , nmre 1 , mband , 
1  nlnd , nlmem , neq , nq , numeq ,nlc,nif,wstif, wrs  t  i f , w lod 

common/ random/  irandm,ncvdf ,ntacv,nl(10) ,n2( 10) , ax (SO , SO , 10) , 

1  nt(50,50 , 10) , lon,nroot,nsmax,corri 

comoon/sol/  xdp(S0, 3) ,xld(50 ,2) ,x2d(50,3) 
common/dlod/  dt,nti,ns(50 , 10) ,dl(50, 10) ,ndof (10) ,ndofl 
common/slv/  a(50,25) ,b(50) 
common/ xmd/  xmass(SO) >damp(50,25) 
common/ chol/xmc (50 , 25 ) 

common/matrix/  la(50) ,tl(50) ,t2(50) ,f (50) 
common/kuz/  rx(50,50,3,8) ,ck(8) 
common/ rrl/  zz(50,50,3) ,212(50,50,2) ,22(50,50,2) 
common/ rr2/  rf (50,50) ,rz(50,50) ,r2l(50,50) ,rzl2(50,50) 
common/ rr3/  al(50,50),a2(50,50),a3(50,50) ,xLa(50,50) ,La2(50,50) 
common/eign/  eigvec(50 ,24) ,rho(24) ,a4(50,50) 
oommon/ f lagw/ inpt , ifpt , jpnp , intpt , if tpt , jpnt , ip lot .meanw , iwvar 
common/ icross/  icros ,iw,iaa,ivz, ia2, iav 
double  precision  a,b,xmass,damp,xdp,xld,x2d,tl,t2,f ,xmc 
double  precision  al,a2,a3lxla,rz,rzl,rzl2,zl2,zz,rf 
double  precision  eigvec,rho,a4,z2,ck,rx 
c  This  subroutine  proceed  the  direct  integration  by  using 

c  Central  Difference  method 

open (unit*10 , f ile* ' p lotout . mean . cd . n ' , status* ' new ' ) 

open (unit*l 1 , f ile* ' p lotout . var . cd . n ’ , status* ' new ' ) 

read  (5,1)  inpt, ifpt, jpnp, intpt, iftpt, jpnt, init,iplot, meanw, iwvar 

write  (6,6)  inpt, ifpt, jpnp, intpt, iftpt, jpnt 

write  (6,7)  init.iplot 

write  (6,8)  meanw, iwvar 

if  (init.eq.0)  go  to  100 

do  110  i*l, numeq 

read  (5,2)  xdp(i,2) ,xld(i,2) ,x2d(i,2) 

110  continue 
go  to  111 

100  do  120  ii*l, numeq 
xdp(ii,2)*0. 
xld(ii,2)*0. 
x2d(ii,2)*0. 

120  continue 

c  Evaluate  the  Initial  displacement 

111  do  140  ii*l, numeq 

xdp ( ii , 1 )*xdp ( ii , 2 ) -dt*xld ( ii , 2 )+ . 5*x2d ( ii , 2 )*dt**2 

140  continue 

c  Evaluate  [C]*.5/dt+[M] /dt**2 

do  300  ii*l, numeq 
do  300  jj*l, mband 
xmc ( ii , j j )*damp ( ii , j j )*dt/ 2 . 
if  ( j j .ne. 1)  go  to  300 

xmc ( ii , j j )*damp ( ii , j j )*dt/ 2 . +xmass ( ii) 

300  continue 

write  (6,12) 

c  Find  the  highest  eigenvalue 


153 


do  148  ii=l,numeq 
do  148  jj*l,mband 

148  rzl(ii, jj)=a(ii, jj) 

call  higheig  (nmc,numeq,mband) 

write  (6,14)  rho(8),nmc 

write  (6,11)  (eigvec(ii,8) ,ii=l,numeq) 

nwr=0 

go  to  (145,146)  irandm 
Modal  analysis 

146  call  bound  (1,1.0E+15) 

if  (wstif.eq.O)  go  to  210 
do  220  iisl,nuaeq 

220  write  (6,11)  (a(ii, jj) , j j*l,mband) 

210  if  (nroot.gt.l)  go  to  340 

call  loweig  (nmc,numeq,mband) 

write  (6,15)  rho(l),nmc 

write  (6,11)  (eigvec(ii, 1) , ii=l ,numeq) 

go  to  147 

340  call  sspace  (nroot.nsmax) 
write  (6,16) 

write  (6,11)  (rho(ii) , ii=l ,nroot) 
write  (6,17) 
do  342  ii=»l,nroot 

write  (6,11)  (eigvec(jj ,ii) , j j*l,numeq) 

342  continue 

147  do  360  ii*l,numeq 
do  360  jj*l,mband 

360  a(ii, j j)=rzl(ii, j j) 

evaluate  A1,A2,A3;  The  reason  we  evaluate  the 
A2  matrix  is  because  that  at  time  step  (1)  the  stiffness 
matrix  is  equal  to  the  primary  stiffness  we  establish 

145  do  402  ii3l,numeq 
do  402  jj=»l,mband 
al(ii, j j+ii-l)=damp(ii, j j )*dt*.5 
a2(ii,jj+ii-l)»-a(ii,jj)*dt**2 
a3(ii, j j+ii-l)3al(ii, j j+ii-1) 
a4(ii, j j+ii-l)=a2(ii, j j+ii-1) 
if  (jj.ne.l)  go  to  402 

403  al(ii, j j+ii-l)*al(ii, j j+ii-l)+xmass(ii) 
a2(ii,jj+ii-l)»a2(ii,jj+ii-l)+2.*xmass(ii) 
a3(ii, j j+ii-l)=a3(ii, j j+ii-1) -xmass (ii) 
a4(ii, j j+ii-l)*a2(ii, j j+ii-1) 

402  continue 

symmetric 
do  404  ii*l,nuaeq 
do  404  j j*ii+l ,numeq 
al(jj,ii)-al(ii,jj) 
a2(jj,ii)»a2(ii,jj) 
a3(jj,ii)»a3(ii,jj) 
a4(j j ,ii)*a4(ii, j j) 

404  continue 

if  (irandm.eq. 1)  go  to  149 
A  inverse 

call  matinv  (numeq.wstif ) 


call  abound  (4) 

149  do  130  ii«l,numeq 
La(ii)»l 

130  continue 

do  131  ii*l,nuaeq 
do  131  jj«l,numeq 

131  La2(ii,jj)»l 

Start  the  iteration 
do  1000  i*l,nti 
call  dS  (i) 

go  to  (400,408),  irandm 
408  call  d2  (i) 

Evaluate  ck(np) 
do  440  np*l,nroot 
ck(np)*0. 
do  440  ii*l,numeq 
if  (xdp(ii,2) .eq.O . )  go  to  440 

ck(np)«ck(np)+eigvec(ii,np)*xaass(ii)*xdp(ii,2) 

440  continue 
call  d3 
call  d4 

TOTAL  SUM 
do  500  ii*l,numeq 
do  500  jj*ii,numeq 

rf(ii,Jj)-rf(ii,jj)+rzl2(ii,jj)+rzl2(jj,ii) 
rf(ii, jj)«rf(ii, jj)-xla(ii,jj)-xla(jj ,ii) 
rf(ii,jj)-rf(ii,jj)-zl2(ii,jj,l)-zl2(jj,ii,l)+rzl(ii,jj) 
500  continue 

do  505  JJ*l,numeq 
do  505  ii*j j+1 ,numeq 
rf(ii,jj)«rf(jj,ii) 

505  continue 

if  (wstif.eq.0)  go  to  515 
write  (6,9) 

9  format  ('  the  total  sum  matrix') 
do  525  ii«l,nuoeq 

525  write  (6,11)  (rf(ii, j j) ,J j«l,numeq) 

Evaluate  zz(ii,jj,3) 

515  do  540  ii«l,numeq 
do  540  JJ*l,numeq 
xla(ii,J j)*0. 

if  (al(ii,ii) .eq. 1.0.or.al(jj , jj) .eq. 1. )  go  to  540 
do  541  kk^l.numeq 

xla(ii,jj)»xla(ii,jj)+al(ii,kk)*rf(kk,jj) 

541  continue 


540  continue 

do  550  ii*l,numeq 
do  550  jjaii,numeq 
zz(ii,Jj ,3)-0. 

if  C»l(jJ,Jj).«q.l.0.or.al(ii,ii).eq.l.)  go  to  550 

do  551  kk*»l,numeq 

zz(ii,JJ,3)-zz(ii,jj ,3)+xla(ii,kk)*al(Jj ,kk) 

551  continue 
550  continue 


do  555  jj*l,nuaeq 
do  555  ii*jj,numeq 
if  (ii.eq.jj)  go  to  555 
zz(ii, j j , 3)*zz(j j ,ii,3) 

555  continue 

if  (icros.eq.O)  go  to  400 
if  (ivz.eq.l)  call  svz  ( i , nwr ) 
if  (iaz.eq.l)  call  saz  (i.nwr) 
call  d7 

if  (iav.eq.l)  call  sav  (i,nwr) 
if  (iw.eq.l)  call  sw  (i.nwr) 
if  (iaa.eq.l)  call  saa  (i.nwr) 

400  call  d6(i,irandm) 
c  write  down  the  results 

call  write  (i.nwr) 

1000  continue 

1  format  CIO 15 ) 

2  format  (3fl0.5) 

6  format  (9(/).5x,’  INITIAL  it  DOF  FOR  PRINT  OUT  [INPT]  »',i5, 

1  ///5x, '  FINIAL  it  DOF  FOR  PRINT  OUT  [  IFFT]  »  ’  ,  i5 , 

2  III 5x,'  INCREMENT  OF  DOF  FOR  PRINT  OUT  [JPNP]  »',i5, 

3  III 5x,’  INITIAL  TIME  NUMBER  FOR  PRINT  OUT  ( INTPT]  -  * . 15 , 

4  ///5x, '  FINIAL  TIME  NUMBER  FOR  PRINT  OUT  [IFTPT]  -’.i5. 

5  III 5x,'  INCREMENT  OF  TIME  FOR  PRINT  OUT  [JPNT]  »  \i5) 

7  format  (9 (/) ,5x, ' INITIAL  CONDITION  [INIT]  -  ’ , i5 . 

1  /5x, ' :  0  GENERATE  TO  BE  EQUAL  ZERO' 

2  /5x, ' :  1  READ  FROM  DATA  CARD’ 

3  /// 5x.’ I  IPLOT  ]  «  1 .15. 

4  /5x , ' :  0  DIRECTLY  WRITE  DOWN  FOR  PRINT  OUT' 

5  /5x, ' :  1  WRITE  DOWN  FOR  PLOTTING  MANNER') 

8  format  (///5x, 'FLAG  FOR  WRITING  DOWN  MEAN  RESPONSE  [  MEANW  ]  - 

1  iS,/5x, ' :  0  NO' ,/5x, ' :  1  YES ’ , 

2  ///5x, 'FLAG  FOR  WRITING  DOWN  VARIANCE  RESPONSE  [  IWVAR  ]  -' 

3  15,/Sx,':  0  MO'./SX,*:  1  YES') 

11  format  (6el3.5) 

12  format  (10(/),10x,'  THIS  IS  SOLUTION  OF  C.D.  METHOD') 

14  format  (///3x,'THE  HIGHEST  FREQUENCY  IS  :  \e20.9. 

l//3x' NUMBER  OF  ITERATION  OF  FINDING  HIGHEST  FREQUENCY  IS  : ' . iS 
2// 15x, 'THE  CORRESPONDING  EIGENVECTOR  IS  : ’ ) 

15  format  (///3x,'THE  LOWEST  FREQUENCY  IS  :  ’.e20.9, 

1 / / 3x ’ NUMBER  OF  ITERATION  OF  FINDING  LOWEST  FREQUENCY  IS  .'.15, 
2// 15x, 'THE  CORRESPONDING  EIGENVECTOR  IS  : ' ) 

16  format  (//Sx.'THE  EIGENVALUES  ARE  ; ' ) 

17  format  (//Sx.'THE  EIGENVECTOR  ARE  :’/) 
return 

end 


subroutine  dino 

common/ par/  method , kind , numnp , ns  t rut , nbeam , numem , nrnp , nor e 1 , mband , 
1  nlnd , nlmem , neq , nq , numeq , nlc , nif , wstif , wrst if , wlod 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/dlod/  dt ,nti,ns (50 , 10) ,dl (50 , 10) ,ndof (10) ,ndofl 
common/slv/  a(50,25) ,b(50) 
common/xmd/  xmass(50) ,damp(50,25) 
common /matrix/  la(50) ,tl(50) ,t2(50) ,f (50) 
double  precision  a,b,xmass,damp,xdp,xld,x2d,tl,t2,f 
double  precision  axl ,ax2, err 1, error 
This  subroutine  proceeed  direct  integration  using  New-Mark  method 
inipt:  initial  //do  of  print  outy 
ifpt:  final  //dof  of  print  out 
jpnp:  jump  increment  for  //do f  of  print  out 
intpt:  intial  time  for  number  for  print 
jpnt:  jump  increment  for  time  print  out 
f iftpt:  final  tmeime  number  for  print 
init:  initial  condition  0:  generate  zero 

1:  read  from  data  card 

read  (5,1)  inpt.ifpt, jpnp, intpt, iftpt, jpnt, init, iplot 
write  (6,6)  inpt.ifpt, jpnp, intpt, iftpt, jpnt 
write  (6,7)  init, iplot 
if  (init.eq.0)  go  to  100 
do  110  ial, numeq 

read  (5,2)  xdp(i, 1) ,xld(i, 1) ,x2d(i, 1) 

3  continue 
go  to  111 

3  do  120  ii*l, numeq 
xdp(ii,l)«0. 
xld(ii, 1)«0. 
x2d(ii,l)«0. 

3  continue 

open  (uni^lO.file^'poutout.fda.nm'  .status* 'new' ) 
l  do  130  ii«l, numeq 
la(ii)«l 
3  continue 
write  (6,9) 

format  (10(/) ,36x, 'THIS  IS  THE  SOLUTION  FOR  N.M.  METHOD') 
do  1000  ia2,nti 

Find  the  forcing  fn  at  i'th  step 
do  150  iial, numeq 

Pick  out  0  OOF  that  has  load 
do  160  jjal,ndofl 
if  (ii.eq.ndof(JJ))  go  to  161 
3  cont inue 
f(ii)-0. 
go  to  ISO 

Pick  out  n'th  point  that  has  amplitude  change 
L  lc-la(ii) 

if  (i.eq.ns(ii.lc))  go  to  170 

dfa(dl(ii,lc)-dl(ii,lc-l))/(ns(ii, lc) -ns (ii.lc-l)) 
f(ii3adl(ii,lc-l)*df*(i-ns(ii.lc-l)) 
go  to  150 
3  f(ii)-dlCii.lc) 


la(ii)ala(ii)+l 

150  continue 
c  M  inverse  *F 

do  190  iial, numeq 
f (ii)*f(ii)/xmass(ii) 

190  continue 

c  start  the  iteration 

if  (i.eq.2)  go  to  132 
do  131  iial, numeq 
x2d(ii,2)ax2d(ii,l) 

131  continue 
go  to  999 

132  do  133  iial, numeq 
x2d(ii,2)»l. 

133  continue 

999  do  140  iial, numeq 

xt*x2d( ii , 1 )+x2d ( ii , 2 ) 

xdp(ii,2) «xdp ( ii , 1 ) +dt*xld ( ii , 1 ) + . 25*xt*dt**2 
xld(ii,2)-xld(ii,l)+.5*xt*dt 

140  continue 
c  K*xdp 

do  209  iial, numeq 
t2(ii)a0. 

209  tl(ii)-0. 

do  200  iial, numeq 

mbd*mband+ii- 1 

i f  (mbd . gt . numeq )  obd*numeq 

mg*ii-mband+l 

if  (mg.le.0)  mg»l 

do  200  ija  mg, mbd 

msaij-ii+l 

if  (os)  201,201,202 

201  tl(ii)»tl(ii)+a(ij,ii-ij+l)*xdp(ij,2) 
t2(ii)«t2(ii)+daap(ij ,ii-j j+l)*xld(ij ,2) 
go  to  200 

202  tl(ii)*tl(ii)+a(ii,ms)*xdp(ij ,2) 
t2(ii)at2(ii)+damp(ii,ms)*xld(ij ,2) 

200  continue 

do  300  iial, numeq 
tl(ii)«tl(ii) /xaaes(ii) 
t2(ii)at2(ii)/xma*s(ii) 

300  continue 

do  320  iial, numeq 
x2d(ii,3)af(ii)-tl(ii)-t2(ii) 

320  continue 

do  330  ii«l, numeq 

ax l"dabs ( x2d ( i i ,  2 ) ) 

ax2«dabs(x2d(ii,3) ) 

if  (axl.eq.ax2)  go  to  330 

if  (axl„eq.0.0.and.ax2.ne.0.0)  go  to  340 

if  (ax2.eq.0.0.and.axl.ne.0 .0)  go  to  340 

errl«axl/ax2 

erroradab* ( er r 1 - 1 . ) 

if  (error  gt. 0.005)  go  to  340 


330  continue 
go  to  998 

340  do  350  ii=l ,numeq 
x2d(ii,2)=x2d(ii,3) 

350  continue 
go  to* 999 

998  if  (i.gt.iftpt)  go  to  995 
if  (i.eq.intpt)  go  to  997 
nwr=nwr+l 

if  (nwr.eq. jpnt)  go  to  997 
go  to  995 

997  if  (iplot.ne.O)  go  to  955 
write  (6,3)  i 
write  (6,4) 

do  996  ii=inpt , ifpt , jpnp 

write  (6,5)  ii,  xdp(ii,2) ,xld(ii,2) ,x2d(ii,2) ,f (ii) 

996  continue 
go  to  954 

955  do  956  ii*inpt,ifpt, jpnp 

write  (10,8)  i,xdp(ii,2) ,xld(ii,2) ,x2d(ii,2) ,f (ii) 

956  continue 
954  nwr*0 

995  do  994  ii=*l,numeq 
xdp(ii,l)*xdp(ii,2) 
xld(ii,l)=xld(ii,2) 
x2d(ii,l)*x2d(ii,2) 

994  continue 
1000  continue 

1  format  (8i5) 

2  format  (3fl0.5) 

3  format  (///20x,’  NUMBER  OF  TIME  STEP',3x,i5) 

4  format  (//'#  DOF  ',2x,'  DISPLACEMENT  ',6x,'  VELOCITY' , 7x, 

1  '  ACCELERATION' ,7x,'  FORCING  FUNCTION') 

5  format  (i5 ,4x,el5 . 8 ,4x,el5 . 8 ,4x,el5 . 8 ,4x,el5 . 8) 

6  format  (9(/) ,20x, ' INITIAL  #  DOF  FOR  PRINT  OUT  [INPT]', 

1  5x, i5/20x, '  FINIAL  #  DOF  FOR  PRINT  OUT  [ IFPT] ' ,5x, i5 , 

2  /20x, '  INCREMENT  OF  DOF  FOR  PRINT  OUT  [ JPNP] ' ,5x, i5 , 

3  /20x, '  INITIAL  TIME  NUMBER  FOR  PRINT  OUT  [INTPT] ' ,5X,i5, 

4  /20x, '  FINIAL  TIME  NUMBER  FOR  PRINT  OUT  [IFTPT] ' ,5x,i5, 

5  /20x, '  INCREMENT  OF  TIME  FOR  PRINT  OUT  { JPNT] ’ ,5x,i5) 

7  format  (9(/),20x,'  INITIAL  CONDITION  ’,15x,i5, 

1  /20x, '  *  0  GENERATE  TO  BE  EQUAL  ZERO' 

2  /20x, '  ■  1  READ  FROM  DATA  CARD' 

3  /20x, '  IPLOT  »  ' ,i5 

4  / 20x , '  -  0  DIRECTLY  WRITE  DOWN  FOR  PRINT  OUT' 

5  /20x, '  -  1  WRITE  DOWN  FOR  PLOTTING  MANNER') 

8  format ( 14 ,2x, e 15 . 8 ,2x,el5 . 8 , 2x,el5 . 8 ,2x,el5 . 8) 

return 

end 


subroutine  did  (ild,w,yp,xzp,sp) 

common  /stif/  s(12, 12) ,r(3 ,3) , t(12, 12) ,st (12, 12) ,tf (12) ,p(12) 
double  precision  s,r,t,st,tf 
go  to  (5,10,15,20),  ild 
fixed  -  fixed  ends 
5  p(l)*0 .5*w*yp 
p(2)=0.5*w*xzp 
p(6)=w*sp*xzp/12. 

P(7)=p(l) 

P(8)=p(2) 

p(12)=-p(6) 

p(12)=-p(6) 

go  to  25 

hinge  -  hinge  ends 
10  p(l)=0.5*v*yp 
p(2)=0.5*w*xzp 
P(7)=p(l) 

P(8)=p(2) 
go  to  25 

hinge  left  end 
15  p(l)=0.5*w*yp 
p(2)=0.375*w*xzp 
p(7)*p(l) 
p  (8 )=0 . 625*w*xzp 
p(12)=-0. 125*w*sp*xzp 
go  to  25 

•  hinge  right  end 

•20  p(l)=0.5*w*yp 
p(2)=0 . 625*w*xzp 
p(6)*0. 125*w*sp*xzp 
p(7)*p( 1) 
p(8)=0 . 375*w*xzp 
25  continue 
return 


subroutine  dload 

common/dlod/  dt ,nti,ns(50 , 10) , dl(50, 10) ,ndof (10) ,ndof 1 
common/ random/  irandm.ncvdf, ntacv.nl (10) ,n2(10) ,ax(50,50, 10) , 

1  nt(50, 50,10) ,lon,nroot,nsmax,corri 

common/ icross/  icros , iw , iaa , ivz , iaz , iav 
c  this  subroutine  read  dynamic  load 
c  irandm:  indicate  random  analysis 

c  1:  yes;  2:  No 

c  ndofl  :  total  number  dof  that  have  load  acting 

c  dt  :  time  increment 

c  nti  :  number  of  time  increment 

c  ndof(20)  :  #th  dof  that  has  load  acting 
c  dl(ndo,j):  dynamic  load  amplitude 

c  ns (200, j)  :  ns  'th  point  that  has  changing  amplitude 
c  ntpdl  :  amount  number  of  point  of  ns(i,j)  [for  one  time  function] 
c  ncvdf:  Total  #  of  pairs  in  covariance  matrix  for  forcing  fn 

c  LOn  :  linear  of  nonlinear  analysis 

c  1  :  Linear  analysis;  2:  Nonlinear  analysis 

c  nl(i)  &  n2(i)  :  pair  #  in  covariance  forcing  fn  for  input 
c  ntacv:  total  #  of  amplitude  change  in  time  hystery  for  N1,N2  pair 
c  nt(nl(i) ,n2( (i) , j) ,  and  ax(nl(i) ,n2(i) , j )  are  the  pair  for  time 
c  and  corresponding  amplitude  change  point 
c 

read  (5,1)  irandm, Ion, ndofl , nti, dt 
write  (6,10)  irandm, Ion, ndofl, nti, dt 
do  100  i*l, ndofl 
read  (5,2)  ndof (i) , ntpdl 
ndo=ndof (i) 

read  (5,3)  (ns(ndo, j) ,dl(ndo, j) ,  j«l, ntpdl) 
write  (6,11)  ndo, (ns(ndo, j) ,dl(ndo, j) ,  j»l, ntpdl) 

100  continue 

if  (irandm. eq. 1)  return 

c  Read  variance  matrix  for  input  forcing  fn 

read  (5,13)  icros,  iw,  iaa,  ivz,  iaz,  iav 
write  (6,14)  icros ,  iw,  iaa,  ivz,  iaz,  iav 
20  read  (5,4)  ncvdf ,nroot,nsmax,corri 
write  (6,5)  ncvdf ,nroot ,nsmax,corri 
do  200  i*l, ncvdf 
read  (5,6)  nl(i) ,n2(i) , ntacv 
write  (6,7)  nl(i) ,n2( i) , ntacv 
nxl*nl(i) 
nx2*n2(i) 

read  (5,9)  (nt (nxl ,nx2 ,j ), ax(nxl ,nx2 , j ) ,j*l , ntacv) 
write  (6,8)  (nt (nxl ,nx2 ,j ), ax(nxl ,nx2 ,j ) ,j*l , ntacv) 

200  continue 

1  format  (4i5,fl0.5) 

2  format  (2i5) 

3  format  (5(i5 , f 10.5)) 

4  format  (3i5,fl0.7) 

5  format  ( / / lx , ' TOTAL  #  IN  COVARIANCE  MATRIX  FOR  FORCING  FUNCTION  ', 

1 ' [  NCVDF  ]  -  ' ,i5///lx, 'NUMBER  OF  EIGENVECTORS  REQUIRE  IN  REPRESEN 
2TING  THE  MEAM  RESPONSE  [  NR00T  ]  i2/// lx, 'NUMBER  OF  SWEEPING 

3 'REQUIRE  IN  SUBSPACE  ITERATION  [  NSMAX  ]  -  ',15/ //lx, 

4 ' FRACTION  OF  STANDARD  DEVIATION  OF  STIFFNESS  [  C0RRI  ]  *  ' , f 10 . 5 ) 


TO 


ifV 


6  format  (4(i;> ,  i5  ,  io) ) 

7  format (2 (/) ,lx, '  PAIR  [',12, ’,',12,']  ', 'TOTAL  POINTS  OF 

1’ CHANGING  AMPLITUDE  [  NTACV  ]  =’,I5) 

9  format  (5 (iS , f 10 . 4) ) 

8  format  ('  TIME  INCREMENT  ’,2x,i5,2x,'  AMPLITUDE  \ei3.6j 

10  format  ( 10 (/ ) ,5x, 'FLAG  INDICATING  RANDOM  ANALYSIS  [ I RAND M’  =  ' 

1  i5,/5x, '  : 1  NO' , /5x, '  : 2  YES ' ///5x , '  LINEAR  OR  NONLINEAR ' . 

2  '  ANALYSIS  [LON]  =  ',i5,/5x,’:l  LINEAR ' /5x 2  NONLINEAR', 

3  ///5x, 'TOTAL  #  DOF  THAT  HAVE  LOAD  [  NDOFL  ]  =',i5, 

4  ///5x, 'TOTAL  TIME  INCREMENT  [  NT I  )  » '  ,  i5  , 

5  ///5x,  'TIME  INCREMENT  [  DT  ]  *'.Fl0.5'i 

11  format  (5 (/ ) ,5x, 15 , ’  DOF  INPUT  LOADING  FUNCTION  ECHO', 

1  /(Sx.'tiae  increment 2x , io , 5x , '  amplitude 3x , el 0  5 ) ' 

12  format  ( / / / / 5 x , 'FLAG  INDICATING  COMPUTING  MEAN  SQUARE  VELOCITY 


13 

14 


1 

i3/5x, '0 

NO' 

/ 5x , ' 1  :  YES ' , 

2  / / / / 5 x , 'FLAG  INDICA 

TING  COMPUTING 

MEAN 

SQUARE  ACCELERAT 

3 

i5/5x , ' 0 

NO' 

/ 5x , ' 1  :  YES’) 

format 

(615) 

format 

( /  /  /  /  5  x  '  FLAC 

5  INDICATE  COMPUTING 

CRC 

SS  MOMENT  •  ICRCS 

1 

I5/5X, '0 

NO' 

/SX.'l  :  YES’,. 

/  5X , 

’  iw  ;  . 

*> 

I5/5X,  '0 

NO’ 

/  5X ,  '  1  :  YES  ’  , 

5X , 

’  [  IAA  ]  *  ‘  , 

3 

I5/5X, '0 

NO’ 

5X , ’ 1  :  YES’. 

5X . 

’ [  iv:  ;  *’ . 

4 

I 5 / 5X  ' 0 

NO’ 

'  5X  ,  ’  1  :  YES  ’  , 

5X. 

’ ;  :ac  ;  *  . 

5 

1 5  /  5  X ,  '  0 

NO’ 

/'  5 X ,  ’  1  .  YES  ’  , , 

5X. 

’ ;  iav  •  , 

6 

I5/5X, '0 

NO’ 

/SX.’l  :  YES’) 

return 


subroutine  eigen 

common  /modal /sk( 16 ,16),sm(16,16),qk(16,16) ,xLam( 16 ,2) 

dimension  beca(2) ,phi(2) 

double  precision  sk , sm , qk, xLam , beta , phi 

real  judge 

a*sm( 1 , l)*sm(2 ,2) -sm( 1 ,2)*sm( 1 ,2) 

b*2.*sk(l,2)*sm(l,2)-sm(l,l)*sk(2,2)-sm(2,2)*sk(l,l) 

c*sk( 1 , 1 )*sk(2 ,2) *sk(l ,2)*sk(l ,2) 

judge*b*b-4 . *a*c 

if  ( judge. ge . 0 . )  go  to  500 

write  (6,1) 

stop 

0  judge* judge***  5 

if  La  .ne .  0  .  )  go  to  110 

write  (6,8) 

stop 

0  xL*m( 1 , 1 )»( -b- judge)/ (2 .  *a) 
xLam ( 2 , 1 ) » ( - b* j udge ) / ( 2 . *a ) 
do  100  i*l,2 

deno*sk(2 , 2 ) -xLam( i , 1 )*sm( 2 ,2) 
if  (deno.ne.0.)  go  to  120 
write  io,9) 
stop 

0  beta  ^ i )*( xLam( i , 1  )*sm( 1 ,2) -sk(l ,2) )/deno 

0  phi  v  i )*ls«(  1 , 1)*2 . *sm(  1 , 2)*beta(i)  1  sm(2,2)*beta(i)*beta(i))l!r* 

e 

qk (1,1 )*phi ( 1 ) 
qkv2,l  *beta( 1 )*phi( 1) 
qk , 1 , 2 t*phi ( 2) 
qk  ,  2 , 2 l*phi ( 2 )*beta(2) 

1  format  '  5x,'B**2  -  4  A  C  <  0  IN  SUBROUTINE  EIGEN,  STOP  !!’) 

S  format  t.  5x,'A  IS  ZERO  IN  SUBROUTINE  EIGEN,  ERROR,  STOP!!') 

3  format  l,\  Sx.'OENO  IS  ZERO  IN  SUBROUTINE  EIGEN,  ERROR,  STOP!!') 
return 


program  fda 

integer  wstif .wrstif ,wlod 

common/par/  method , kind , numnp , nstrut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd.nlmem ,neq,nq,numeq ,nlc ,nif , wstif .wrstif ,ulod 

common/slv/  a(50,25)  ,b(50) 
common/xmd/  xmass (SO) ,damp(50 , 25) 
common/dya/  mass , inlod, alpha, beta ,mdi 
common/lod/  fi(50, 12) ,ax,ay ,az 

common/dlod/  dt ,nti,ns(50 , 10) ,dl (50 , 10) ,ndof (10) ,ndof 1 
common/ random/  irandm, ncvdf.ntacv.nl (10) ,n2(10) ,axx(50,50,10) , 

1  nt(50,50, 10) , lon.nroot .nsmax.corri 

common/rest/res (SO) 

double  precision  a.b , fi, xmass .damp , res 
read  and  write  structure  data 
call  input 

write  band  width 
write (6, 1060)  mband 

1060  format ( 10 (/),13h  Band  Width  =,i 5,//) 
initialize  stiffness  matrix  (a) 
numeq=numnp*nq 
do  5  i=l .numeq 
do  5  j=l, mband 
a(i, j)=0.0 
5  continue 

generate  stiffness  matrix  (a) 
call  stiff 

write  stiffness  matrix  (A) ,  and  mass  matrix 
if  (wstif. eq.0)  go  to  101 
write(6, 1005) 

1005  format (46x,35h  The  Structure  Stiffness  Matrix  (A)/) 
do  10  i=l, numeq 

10  write(6 , 1010)  i, (a(i,j) ,j=l, mband) 

1010  format (/iS ,6el9 . 7/ (5x,6el9 . 7) ) 

Form  Damping  Matrix 

101  go  to  (11,102),  method 

102  call  damping 

Add  concentrated  mass 
if  (mass.eq.0)  go  to  500 
do  510  ii*l, numeq 
510  xmass (ii)=xmass (ii)+res (ii) 
iOO  continue 

if  ''wstif  .  eq .  0)  go  to  11 
::  write  (6,1004) 

-  format  ( 10(/) ,46x, 'The  Structure  Mass  Matrix') 
lo  7  :*1, numeq 
.-lie  0,1010)  i, xmass (i) 

-'.'•6.1031) 

•me*  It  ,46x,'7he  Structure  DAMPING  Matrix') 


■.  umeq 


i.  damp f i , j ), j*l , mband) 

mr.ditions  to  stiffness  matrix  (a)  and  mass  matrix 


•V-3 


-  «  .  .  ec  stiffness  matrix  (a) 


•'.N 


writer  6 , 1020 , 

1020  !on<t;iV  ,  ,  2  lx  .  ■•CnThe  Reduced  Structure  Stiffnee*  *ar.z:x  k 
do  20  i*< . aumeq 

20  writef  $  ,  1010  i ,  *  ^■l.ascand 

go  to  '12,23  , me t nod 

23  writef  6 , 1006  i 

1006  format ( 10 f,  ,,2  lx,’ The  Reduced  M.ui  Matrix  X.1A3S 
do  27  i»i,nummq 
2*  writ# (6, 1C  10  ;  i.xuia1:/ 
writ#  f6,200; 

200  format  '  10  < ;  ;  ,  21*  .  ’  The  R#duc#d  damping  Matrix  CA.MP 
do  31  1*1 , numeq 

31  writ#  <5,1010.  i,  damp  i , ;  ,  _■!  ,#Btad 
22  go  to  12,90..  metnod 

c  r#duc#  tyit##  stiffness  aitru  « 

12  t*il  »olv#r'  1  , 

do  1050  j k« 1 , n  1  c 

c  initialize  lo*d  v#ctor  'b 

do  <• 5  i*l ,  numeq 
bf 1;«0 . 0 
45  continue 

c  r«*d  structure  loads 

r««d  (5,1140;  nlnd , nlmem , ax , ay , az 

114C  format  ' 2-5 , 3#10 . 4 j 
call  load 

c  writ#  r«duc#d  load  v#ctor  'b j 

if  (tflod.tq  0)  goto  13 
write(6 , 10 15 ) 

1015  format (  47x,27hTh«  R#duc#d  Load  V#ctor  'B,  . 

do  15  i*l,numnp 
n*nq* i - ( nq - 1 ) 
nn*nq*i 

write  (6,1025)  i , (b (k ) , k*n , nn ; 

15  continue 

c  compute  nodal  displacements 

13  call  solver(2) 

c  write  nodal  displacements 

write(6 , 1035) 

1035  format  (10(/)  ,37x,44hS  TRL’CTL'RE  DISPLACEMENTS 

1/) 

write(6 , 1C70) 

1070  format (2x, 4hNode , 6x , 6hC  (in),13x,6hV  (in),13x,ohW  fin),13x, 

1  12hThetax  (rad) , 7x , 12hThetay  (rad) , 7x, 12hThetaz  (rad)/) 

do  30  i3l,aumnp 
n=nq*i-(nq-l) 
nn=nq*i 

write  (6,1025)  i, (b(k) ,k*n ,nn) 

30  continue 

c  compute  and  write  member  forces 

call  force 

1050  continue 

1025  format  (i5,6el9.7) 
go  to  (91 ,90) .method 
90  call  dload 


165 


subroutine  force 

common/par/  method ,  kind ,  numnp ,  ns t rut ,  nbeam ,  numem ,  nmp ,  nmrel ,  oband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common/slv/  a(50 ,25) ,b(50) 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) ,ir(25,6) ,ui(25,6) 
common/mem/  mtype(SO) ,nd(50,2) ,mid(50) ,mlc(50) ,alfa(50) , 

1  mrel(50,2) ,thetai(50) .thetaj (50) 

common/mlib/  xa(25) ,zi(25) ,yi(25) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common  /lod/  fi(50,12) ,ax,ay,az 

common  /stif/  s(12,12) ,r(3,3) ,t(12,12) ,st(12,12) ,tf(12) ,p(12) 

dimension  u(12) ,f (12) ,ndf (12) 

double  precision  a,b,s,r,t,st,tf ,u,f ,fi 

mprint^O 

do  5  id3 1, numem 

c  compute  control  counters 

i^nddd,  1) 
j*nd(id,2) 
m=mtype(id) 
do  2  k3l,nq 
kk=k+nq 

ndf (k)*nq*i- (nq-k) 
ndf (kk)=nq* j - (nq-k) 

2  continue 

do  10  ii»l,neq 

il*ndf(ii) 

u(ii)=b(il) 

10  continue 

c  compute  member  forces  for  structure  axes 

go  to  (11,12,11,16),  kind 

11  call  strut  (id,i,j) 
go  to  14 

12  if  (mcurv(m) .ne.O)  call  curvbm  (id,i,j) 
if  (mcurv(m) .ne. 0)  go  to  14 

call  beam2  (id,i,j) 
go  to  14 

16  call  beam  (id,i,j) 

14  do  15  ii«l,neq 
f(ii)»0.0 

do  15  jj*l,neq 

f(ii)*f (ii)+s(ii, j j)*u(j j) 

15  continue 

do  20  ii»l,neq 
p(ii)*f (ii)+fi(id,ii) 

20  continue 

c  transform  forces  to  member  axes 

call  rotate  (3, id) 
c  write  member  forces 

if  (mprint.ne.0)  go  to  25 
mprint=54 
write(6 , 1030) 

1030  format  (10(/) ,47x,25hM  EMBER  FORCE  S//) 
write(6,2000) 

2000  format(7h  member, 3x, 4hnode, 5x,8hforce(x) ,9x,8hforce(y) ,9x, 


18hforce(z) ,9x,9haoment(x) ,8x,9hmooent(y) ,8x,9hooment(z)/) 
25  oprint*mprint-l 
nf=nif/2 

write  (6,1005)  id, i, (tf (lk) , lk*l ,nf ) 

1005  format (/i5,3x,i5,6el7. 7) 
nfl*nf+l 

write  (6,1006)  j , (tf (lk) ,lk=nfl,nif) 

1006  format(8x, i5 ,6el7 . 7/) 

5  continue 

return 

end 


16S 


sub rout in*  gauss  (isolve.nord) 

common/ par/  method.kind.numnp .nstrut ,nbeam,num*m ,nrnp .nmrel , aband , 
1  nlnd,nlaam,n#q,nq,num*q,nlc,nif .wstif .wrstif ,wlod 

common/ rr3/  al(50,50) ,a2(50, 50) ,*3(50,50)  ,xLa(50,50) ,L*2(50,50) 
common/ rr2/  rf (50 , 50) , rz(50 ,50) , rzl (50 ,30) , rzl2(50 ,50) 
doubis  pracision  rf ,rz,rzl,rzl2,*l,*2,*3,xL* 
go  to  (800,850\  isolva 

800  do  S00  i«l,numtq 
do  500  jal,num*q 
if  (i.gt.j)  go  to  515 
if ((i-1) . La.0)  go  to  510 
a2(i,j)-al(i,j) 
do  505  k*l,i-l 

505  a2(i, j)aa2(i, j)-a3(i,k)*a2(k, j ) 

go  to  520 

510  a2(i,j)-al(i,j) 

go  to  520 

515  a3(i,j)«a2(j,i)/a2(j,j) 

go  to  500 

520  if  (i.na.J)  go  to  500 
a3(i, i)«l . 

500  continua 
go  to  888 

c  foward  substitution 

850  do  900  nnal,nord 
do  600  ial,num*q 
if  (i.eq. 1)  go  to  605 
xLa(i,nn)arzl2(i,nn) 
do  610  j«l,i-l 

610  xLa(i,nn)axLa(i ,nn)  -a3(i ,  j  ),1rxLa(  j  ,nn) 
go  to  600 

605  xLa(l,nn)arzl2(l,nn) 

600  continua 

c  backward  substitution 

do  620  ial,numeq 
it*numaq-i+l 

if  (it . eq.nuaaq)  go  to  625 
rzl2(it ,nn)»xLa( it ,nn) 
do  630  jait+l  .nuineq 

630  rzl2(it,nn)arzl2(it,nn)-a2(it,  jJ^rz^Cj  ,nn) 
rzl2(it,nn)arzl2(it,nn)/a2(it , it) 
go  to  620 

625  rzl2(numaq,nn)*xLa(numeq,nn)  /a2  (nuineq  ,nuaeq) 

620  continua 

900  continue 

888  return 
end 


subroutine  h if half  (nac .nuaeq .abend ) 

common/ ttl/  rf (50.50) ,r»( 50.50 ) ,r«l (50.50; . r*12( 50, 50) 

coaaon/xad/  mass (50)  ,d»p(50,25 

eocop/>nn/  elgvec(50,24j  ,  rhot24)  ,*4(50,50  ) 

coasoo/sttr ix/  La($0),tl(50),t2(50),f<50) 

coasoa/slv/  s(50t25) ,b(50) 

d inens ion  xrho(2) 

double  precision  rf , r* , rzl , rzl2 , * , b , xaass .daap , t 1 , t2 , f 

double  precision  eigvec , rho , *4 

nac*0 

tole*l  0  E-6 

c  transfer  stiffness  satrix 

do  150  1*1, nuaeq 
do  150  )  ■  1 , abend 
t2(i)«l. 

150  rf ( i, j*i-l)»rxl( i.  j ) 
do  155  1*1. nuaeq 
do  155  J*I, nuaeq 
if  ( i . eq  ) )  go  to  155 
rf() . i)*rf ( 1, j ) 

155  continue 

do  160  1*1, nuaeq 

cell  range  ! l , nuaeq . abend , ag , abd ) 
b( l )*0 

do  160  J^eg.abd 
160  b( i )»b( i )*rf ( 1 , ) )*t2 ( j ) 

165  nac*nac> 1 

do  170  1*1, nuaeq 
170  t 1 ( 1 )*b(i )/ xaass ( i ) 
do  180  i*l .nuaeq 

call  range  ( l .nuaeq .abend ,ag, abd) 
t2(i)*0. 
do  180  J*ag,abd 
180  t2( i )*t2( l )+rf  ( i ,  J )*t 1 ( j ) 
xrhol*0 . 
xrho2*0 

do  185  1*1, nuaeq 
xrhol*xrhol-*,t  1  ( i  )*t2(  i) 

185  xrho2-xrho2+tl(i)*b(i) 
xrho( l)»xrhol/xrho2 
if  (nac.eq.l)  go  to  200 

if  ( ( 1 . *abs (xrho( 2)/xrho( 1 ) ) )  Le . tole i  go  to  210 
200  do  205  i*l, nuaeq 
205  b(i)*t2(i)/(xrho2**.5) 
xrho(2)*xrho( 1) 
go  to  165 

210  call  solver  (1) 
call  solver  (2) 
do  220  i*l, nuaeq 
220  eigvec(i,8)*b(i) 
rho(8)*xrho( 1) 

c  Transfer  the  stiffness  back 

do  230  i*l .nuaeq 
do  230  j*l,nband 


subroutine  input 

common/ par/  method, kind, numnp, ns t rut ,nbeam,numem,  nmp,  nmrel  ,»band, 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif .wstif .wrstif ,wlod 

comoon/dya/  mass , inlod, alpha, beta, mdi 

common  /nod/  x(25) ,y(2S) ,z(25) ,ntype(25) ,ir(25 ,6) ,ui(25 ,6) 
common/ a— /  atype(SO) ,nd(50,2) , mid (50) ,mlc(S0) , sift (50) , 

1  are 1(50, 2) , thetai(50) , thsttj (50) 

coamon/alib/  xa(25) ,zi(25) ,yi(25) ,xj(25) ,tvy(25) , 

1  avz(25) ,mcurv(25) 

common  /lod/  f i (50 , 12) , tx , ty , sx 
common/alib2/  tf (25) ,bf (25) ,tw(25) ,bw(25) 
common/ mat/  •( 5 ) , sigma(5) ,«psiln(S) ,pr(5) ,g(5) ,rho(5) 
common/ rast/ ras ( 50 ) 
dimension  tit  la (20) 

double  precision  f i ,s 1 .dsqrt ,xl ,x2 ,yl ,y2 ,*1 ,z2 , res 
read  and  write  control  parameters 
read  (5.990)  title 
990  format (20a4) 

write(6,995)  title 

995  format( 15 (/) ,43x, 'Run  Title:  '  ,20a4//) 

read  (5,1000)  method, kind , numnp, ns t rut ,nbeaa,nmtype , numem.numat , 

1  nmp ,  nmrel  ,nlc 

read  (5,999)  wstif .wrstif ,wlod 
go  to  (54,55,56,57),  kind 

54  neq«4 
nq«2 
nif«2 

go  to  58 

55  neq*6 
nqa3 
nif"6 

go  to  58 

56  neq«6 
nq*3 
nif«2 

go  to  58 

57  neqa12 
nqa6 
nif«!2 

58  continue 
1000  foraiat(lli5) 

999  format  (3i5) 

6  write(6 , 1005 ) 

1005  format  (43x,34hC  0NTR0L  PARAMETER  S//) 
write  (6,1010)  method, numnp, nstrut ,nbeam 
write  (6,1009)  numem.nmtype  ,numat , nmp , nmrel  ,nlc 
1010  format (42x, 'Type  of  problem  [  method  ] '  , i5 / 

1  42x,'»l  static  analysis'/ 

2  42x,'*2  dynamic  analysis'// 

3  42x, 32hNumber  of  Nodal  Points  a,i5// 

4  42x,32hNumber  of  Two-force  Members  a,i5// 

5  42x,32hNumber  of  Beam  Members  a,i5//) 

1009  format (42x,32hTotal  Number  of  Members  a,i5// 

1  42x, 32hNumber  of  Members  in  Library  a,i5// 


ty 


•*  s' V 


ri.ri/w*!1  Vvli' 


o 


2  42x,32hNuaber  of  Materials  *,i5// 

3  42x , 32hNuaber  of  Boundary  Constraints  a,i5// 

4  42x, 32hNumber  of  Member  Releases  *,i5// 

5  42x,32hNumber  of  Loading  Conditions  a,i5)  ^ 

writs  (6,1011)  wstif ,wrstif ,wlod 

1011  format  (///36x,45hStiffnass  Matrix  Print  Flag  (l«yes,0«no)*  , 

1  i5//36x,45hReduced  Stiffnass  Matrix  Matrix  ( l*yes , 0»no)«, i5// 

2  36x,45hReduced  Load  Vsctor  (l*yas ,0*no)«  , i5 / / ) 

go  to  (  7,8)  ,aathod 

c  raad  and  writs  tha  flag  of  aathod  of  solving  ^ 

c  problaa  for  dynamic  analysis 

8  raad  (5,1129)  aass ,inlod,adi 
1129  format  (3i5) 

writs  (6,1131)  aass.inlod 

1131  format  (10(/),36x,'  MASS  -  ' , iS/ 

1  36x,'  ■  0  NO  CONCENTRATED  MASS  WAS  ADDED  7 

2  36x, '  >  0  ADD  CONCENTRATED  MASS  FOR  [  MASS  ]  TIMES  7/ 

3  36x, '  INLOD  «  ’ ,i5/ 

4  36x, '  ■  1  READ  FROM  DATA  CARD  7 

5  36x, '  -  2  READ  FROM  FILE') 

writs  (6,1192)  adi 

1192  format  (/36x,'  MDI  »  ',i5,  ^ 

1  /36x,'  ■  1  Newoark  aathod  ', 

2  /36x,'  ■  2  Cantral  Diffaranca  Msthod') 

if  (aass.aq.O)  go  to  150 

do  155  in“l,mass 

155  read(5,156)  andof,  ras  (andof)  ^ 

156  format  (4(i5,al0.5» 

150  continus 

c  raad  damping  (alpha  and  bata)  [C]»  alpha[M]  +  beta[K] 
raad  (5,1132)  alpha, bata 

1132  format  (2f 10 . 5) 

writs  (6,1133)  alpha, bata 

1133  format  ( 10 (/ ) ,  36x,'  DAMPING  MATRIX  ■  ALPHA  [M]  +  BETA  [K]  7 

1  36x, '  ALPHA  -  '  ,  f 15 . 8/ 

2  36x, '  BETA  «  ' ,fl5.8) 

c  raad  and  writs  of  member  property  table 

7  writs  (6,1036) 

1036  format ( 10 (/) ,25x,51hT  ABLE  OF  MEMBER  PR0PERT 
II  E  S//) 

writs  (6,1037) 

1037  format(42x , 18hMoments  of  Inertia , 18x , 21h£ffective  Shear  Areas//lx, 

16hMambar, 10x,8hX  -  Sect,7x,8hZ  -  Axis,7x,8hY  -  Axis,7x,8hX  -  Axis, 

27x,8hY  -  Axis , 7x, 8hZ  -  Axis/ 2x, 4hType, 14x,4hArea,90x, 'Half  depth') 

do  11  im*l .nmtype 

raad(5 , 1038)  tf (ia) ,bf (im) ,tw(io) ,bw(im) ,xj (im) ,avy(ia) , 

1  avz(ia) ,acurv(ia) 

11  continue 

do  303  im*l, nmtype 

xa ( im ) *b f ( im ) *t f ( im ) *2 . +bw ( im ) * tw ( im ) *2 . 

zi(im)abf (im)*(bw(im)+tf (im) )**3- (bf (im) -tw(im) )*bw(im)**3 

zi(im)=zi(im)*2  73. 

303  yi(im)a(tf (im^bf (im)frtr3+bw(im)*tw(im),Hlr3)/6 . 
do  12  im*l, nmtype 
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writ*  (6,1039)  im,xa(im) ,zi(im) ,yi(im) ,xj (im) 

1 ,avy(ia)  ,avz(im)  ,acurv(ia)  ,bw(ia) 

12  continua 

1038  format  (7al0.3,i2) 

1039  format  ( 15 ,5x,6f IS . 3 ,5x , i3 , f 15 . 3) 

c  read  and  writ*  of  material  constants 

writ*(6, 1015) 

1015  format  (10(/) ,42x,34hM  ATERIAL  CONSTANT  S//) 

2  do  10  ia«l,numat 

read  (5,1020)  *(ia) ,sigaa(im) ,pr(im) ,rho(ia) 

g(ia)».5*e(im)/(l.+pr(ia)) 

eps iln( im)*s igma ( im) /e (  im) 

write  (6,1024)  im 

1024  format  (48x, ' Properties  for  Material  ’,i2) 

write  (6,1025)*(ia) , s igma( im) , eps iln( im) ,pr ( im) ,g( im) , rho( im) 
10  continue 


1020  format (4el0 . 2) 


1025  format ( 

42x , 2 lhYoungs  Modulus 

«,el6. 7/ 

1 

42x,21hYield  stress 

*,•16. 7/ 

2 

42x,21hYield  strain 

* , el6 . 7/ 

3 

42x,21hPoissons  Ratio 

* , e 16 . 7/ 

4 

42x,21hShear  Modulus 

* , e 16 . 7/ 

5 

42x,21hMass  Density 

* ,  e  1 6 . 7  /  ) 

c  read  and  write  nodal  point  coordinates 

do  15  n*l,numnp 

read  (5,1120)  nn,x(nn) ,y(nn) ,z(nn) 

1120  format(i5,3el0.4) 

if  (n .  gt .  1 )  go  to  14 
write(6 , 1030) 

1030  format  ( 10 (/ ) ,43x , 32hJ  0INT  COORDINATE  S//) 
write(o  ,  1031) 

1031  format ( 35 x ,4hNode , 1  lx , lhX, 15x.lhY.15x, lhZ/ 

1  **8x  ,4h(  in ) ,  12x  ,4h(  in )  ,  12x  ,4h(  in)  /  ) 

14  write(6 , 1035 )  nn,x(nn) ,y(nn) ,z(nn) 

1035  format (33x , i5 , lx , 3f 16 . 4) 

15  continue 

c  read  and  write  of  member  descriptions 

nhv*Q 

do  20  ii*l,numem 

read  (5,1040)  id, (nd( id.k) ,k»l , 2) ,ratype( id) ,mid( id) ,mlc( id) , 
1  aifa(id) , thetai( id) , thetaj ( id) 

1040  format  (6i5,3fl0.4) 
i*nd(id, 1) 
j*nd( id ,2) 
xl*x( i) 
x2*x ( j ) 

yi*y(i) 
y2*y(j) 
zl=»z(  i) 
z2*z( j ) 

sl-dsqrt((x2-xl)**2+(y2-yl)**2+(z2-zl)**2) 
mt«ratype( id) 
if  (ii.gt. 1)  go  to  22 
write  (6,1045) 


1045  foraat(10(/).41x,37hM  EMBER  DESCRIPTION  S//) 
writ*  (6,1101) 

1101  format (2x , 6hM*mb«r , 3x , 4hL*f t , 3x , ShRight , 5x , 6hL«ngth , ?x , 4hAr*a , 8x , 
12hIx,9x,2hIy,9x,2hIz,8x,3hAvy ,9x,3hAvz,4x,5hMat ' 1 , 3x , ’hLoading/ 2x , 
26hNuob*r , 3x,4hNod* , 3x,4hNod* , 8x ,  lhL,  lOx, 4hL**2 ,  7x ,4hL**4 , 7x ,4hL1tlSf4 
3 , 7x, 4hL**4 , 7x , 4hL**2 , 6x , 4hL**2/ ) 

22  writ*  (6,1100)  id, (nd(id,k) ,k«l ,2) ,sl ,xa(mt ) ,xj (mt ) ,yi (mt ) ,zi(at ) , 
1  avy(mt) ,avz(mt) ,mid(id) ,mlc(id) 

1100  format  (lx,i5 ,2i8,fl3.2,6fll .2, 18 ,3x,i8) 
c  coinput*  half  band  width  oband 

if(j-i)  35.40,45 
40  writ*(6, 1055)  id 

1055  format(42h  Id*ntical  End  Nodal  Points  for  Member  no.,i4) 

35  ji»nq*j-nq+l 
ij«nq*i 
go  to  50 
45  i j*nq*i-nq+l 
j i*nq*j 

50  nbd*iabs( ji-ij ) 

if (nbd-nhw)  20,20,25 
25  nhw*iabs ( j i-i j ) 

20  cont inu* 
mband*nhw+l 

c  read  boundary  restraint  codes 

do  34  nn»l,numnp 
ntype(nn)«0 
do  34  j»l,nq 
ui(nn , j )*0 . 0 
34  ir(nn,j)*0 
writ*  (6,1135) 

1135  format  (10(/),45x,  'BOUNDARY  CONDITIONS’,/, 

1  2x, ' Node 3x Init 3x, ' Boundary 6x X  Initial' ,6x, 'Y  Initia 

2l',6x,'Z  Initial* ,4x, 'X  Init.  Rotat.  Y  Init.  Rotat.  Z  Init.  Rotat. 
3’,/,'  Number  Disp.  Constraint ', 7x (L) 12x (L) ’, 12x ,' (L) ’, 13x , 
4' (Deg) * , lOx, ' (Deg) ' , lOx, ' (Deg) ' ,/ ) 
do  60  nb»l,nrnp 

read  (5,1125)  n ,ntype(n) , ( ir (n , j ) , j*l , 6) , (ui(n , j ) , j»l ,6) 
writ* (6 ,1130)  n,ntyp*(n) , (ir(n, j ) , j«l ,6) , (ui(n, j ) , j«l ,6) 

60  continue 

1125  format  ( i3 , il ,6il ,6f 10 .4) 

1130  format  (5x, i3 ,5x, il ,2x ,6il ,5x, 6*15 . 6) 
c  read  and  write  member  releases 

do  31  im*l,numem 
do  32  j-1,2 

32  mrel(im,j)*0 
31  continue 

if  (narel.eq.Q)  go  to  36 
write  (6,1060) 

1060  format  ( 10(/) ,40x,39hM  EMBER  RELEASE  CODES/) 
do  33  mr=l,nmrel 

read  (5,1065)  im , (mrel ( im, j ) , j=l , 2) 
write (6 , 1070)  iu, (mrel(io, j ) , j  =  l ,2) 

33  continue 

1065  format  (i3 , / , il , / , il) 


subroutine  jacobi  (n.nsmax) 

common/par/  method, kind, numnp, nstrut ,nbeam,nuiaem,nrnp,nmrel ,mband, 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , ifpr ,wrstif ,wlod 

common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,d(50,50) ,La2(50,50) 
common/modal/  a(16,16),b(l6,l6) ,x( 16 , 16) ,eigv(16 ,2) 
double  precision  al,a2,a3,d,a,b,x,eigv 
iout®6 

rtol=1.0  E-6 

c  initialize  iegenvalue  and  eigenvector  mtrices 

do  10  i*l,n 

if  (a(i,i) .gt.O. .and.b(i.i) .gt.O. )  go  to  4 

write  (iout,2040) 

stop 

4  d(i,l)=a(i,i)/b(i,i) 

10  eigv(i, l)=d(i, 1) 
do  30  i=l,n 

do  20  j=l,n 

20  x ( i , j ) =0 . 

30  x(i, i)=l . 

if  (n.eq.l)  return 

c'  Initialize  sweep  counter  and  begin  iteration 

nsweep=0 
nr*n-l 

40  nsweep=nsweep+l 

if  (ifpr.eq.l)  write  (iout,2000)  nsweep 
c  check  if  present  off-diagonal  element  is  large  enough  to 

c  reguire  zeroing 

eps=( .  01**nsweep)J'"*2 
do  210  j=l,nr 

do  210  k=j j ,n 

eptola-(a(j,k)*a(j,k))/(a(j,j)*a(k,k)) 
eptolb=(b(j ,k)*b(j ,k) )/ (b ( j , j )*b(k,k) ) 
if  ( (eptola.Lt . eps) . and. (eptolb. Lt . eps) )  go  to  210 
c  if  zeroing  is  required  ,  calculate  the  botation  matrix  elements 

c  ca  and  eg 

akk=a(k,k)*b(j ,k) -b(k,k)*a( j ,k) 
aj j=a(j , j)*b(j ,k)-b(j , j)*a(j ,k) 
ab=a( j , j )*b(k,k)-a(k,k)*b(j , j) 
check- ( ab*  ab+4 . *  akk*  a  j  j ) / 4 . 
if  (ch6ck)  50,60,60 
50  write  (iout,2020) 
stop 

60  sqch=sqrt (check) 
dl=ab/2 .+sqch 
d2=ab/2 . -sqch 
den=dl 

if  (abs (d2) . gt . abs (dl) )  den=d2 
if  (den)  80,70,30 
70  ca*0. 

cg=-a( j ,k)/a(k,k) 
go  to  90 
80  ca=akk/den 


c 

c 


cgs*-ajj/den 

perform  generalize  rotation  to  zero  the  present  off-diagonal 
element 
90  if  (n-2)  100,190,100 
100  jpl*j+l 
jml*j-l 
kpl=k+l 
kml=k-l 

if  (jml-1)  130,110,110 
110  do  120  i*l, jml 
aj*a(i, j) 
bj=b(i,j) 
ak=a(i,k) 
bk=b(i,k) 
a(i, j)*aj+cg*ak 
b(i, j)=bj+cg*bk 
a(i,k)=ak+ca*aj 
120  b(i,k)=bk+ca*bj 
130  if  (kpl-n)  140,140,160 
140  do  150  i=kpl,n 
aj“a(j,i) 
bj=b(j ,i) 
ak=a(k,i) 
bk=b(k, i) 
a(j ,i)=aj+cg*ak 
b(j ,i)=bj+cg*bk 
a(k,i)=ak+ca*aj 
150  b(k,i)=bk+ca*bj 
160  if  ( jpl-kml)  170,170,190 
170  do  180  i=jpl,kml 
aj=a(j,i) 
bj=b(j ,i) 
ak=a(i,k) 
bk=b(i,k) 
a(j ,i)=aj+cg*ak 
b(j ,i)=bj+cg*bk 
a(i,k)=ak+ca*aj 
180  b(i,k)=bk+ca*bj 
190  ak=a(k,k) 
bk=b(k,k) 

a(k,k)»ak+2.*ca*a( j ,k)+ca*ca*a( j , j) 
b(k,k)=bk+2.*ca*b(j ,k)+ca*ca*b( j , j ) 
a(j , j)*a(j , j)+2.*cg*a(j ,k)+cg*cg*ak 
b(  j  » j)=b( j , j )+2.*cg*b(j ,k)+cg*cg*bk 
a(j ,k)=0. 
b(j ,k)=0. 

c  update  the  eigenvector  matrix  after  each  rotation 

do  200  i=l,n 
xj=x(i, j) 
xk=x(i,k) 
x(i, j)=xj+cg*xk 
200  x(i,k)=xk+ca*xj 
210  continue 

c  update  the  iegenvector  after  each  sweep 
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i 


do  220  i=l,n 

if  (a(i,i) .gt.O. .and. b(i,i) .gt.O. )  go  to  220 

write  (iout,2050) 

stop 

It 

220 

eigv(i, l)=a(i, i)/b(i, i) 

c 

if  (ifpr.eq.O)  go  to  230 
write  (iout,2030) 

write  (iout,2010)  (eigv(i,l) ,i=l,n) 
check  for  convergence 

230 

do  240  i=l,n 

240 

toL=rtoL*d(i, 1) 

dif '“dabs ( eigv ( i , 1 ) -d ( i , 1 ) ) 

if  (dif.gt.toL)  go  to  280 

continue 

c 

check  all  off-diagonal  elements  to  see 

c 

if  another  sweep  is  required 

eps=rtoL**2 
do  250  j=l,nr 

do  250  k=j  j ,n 

epsa=(a(j,k)*a(j ,k))/(a(j ,j)*a(k,k)) 
epsb=(b(j ,k)*b(j ,k))/ (b(j , j)*b(k,k)) 
if  ((epsa.Lt.eps) .and. (epsb.Lt.eps))  go  to  250 

9 

250 

go  to  280 
continue 

c 

fill  out  bottom  triangle  of  resultant 

c 

matrices  and  scale  eigenvectors 

1 

255 

do  260  i*l,n 

260 

do  260  j*l,n 
a(j ,i)=a(i, j) 
b(j ,i)=b(i, j) 

do  270  j=l,n 
bb=dsqrt(b(j , j) ) 

J 

270 

do  270  k=l,n 
x(k,  j)=x(k, j)/bb 

c 

return 

update  D  matrix  and  start  new  sweep, if  allowed 

280 

do  290  i=l ,n 

290 

d(i,l)=eigv(i,l) 

2000 

if  (nsweep.Lt.nsmax)  go  to  40 
go  to  255 

format  (5x, 'SWEEP  NUMBER  IN  JACOBI  =  *,i5) 

2010  format  (6e20.12) 

2020  format  (lOx, 'MATRIX  NOT  POSITIVE  DEFINE  (  B**2-4AC  <  0),  STOP!’) 
2040  format  (lOx, ’MATRIX  NOT  POSITIVE  DEFINE  (DIAGONAL  <  0),  STOP!’) 
2030  format  (lOx, ’CURRENT  EIGENVALUE  IN  JACOBI  ARE  : ’ ) 

2050  format  (lOx, ’MATRIX  NOT  POSITIVE  DEFINE  (DIAGONAL  <  O.FOR  UPDATE’ 
1  ,’  STIFFNESS  AND  MASS  MATRIX),  STOP!’) 

end 
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'.  A  A 


subroutine  load 

common/par/  method  ,  kind ,  numnp ,  ns t rut ,  nbeam ,  numem ,  nmp ,  nmre  1 ,  mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif ,wrstif ,wlod 

common/slv/  a(50,25) ,b(50) 

common/mem/  mtype(50) ,ij (50,2) ,mid(50) ,mlc(50) ,alfa(50) , 

1  mrel(50,2) ,thetai(50) .thetaj (50) 

common/olib/  xa(25) ,zi(25) ,yi(25) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common  /lod/  fi(50, 12) ,ax,ay , az 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) ,ir(25,6) ,ui(25,6) 
common/mat/  e(5) ,sigma(5) ,epsiln(5) ,pr(5) ,g(5) ,rho(5) 
common  /stif/  s(12, 12) ,r(3 ,3) , t (12 , 12) ,st(12, 12) ,tf (12) ,p(12) 
dimension  u(12) 

double  precision  a,b,s,r,t,st,tf,u,£i,sl,dsqrt,xp,yp,zp,xzp 
initialize  routine 
nql=nq+l 
do  5  k*l, numem 
do  5  1=1, neq 
p(l)=0.0 
u(l)=0.0 
fi(k, 1)=0.0 
5  continue 

if  (nlnd)  410,410,360 

read  and  write  concentrated  nodal  loads 

360  write(6 ,361) 

361  format (  37x,45hC  QNCENTRATED  JOINT  LOAD  S/// 

116x,5hJoint,6x,8hForce(X) ,6x,8hForce(Y) ,6x,8hForce(Z) ,7x, 
29hMoment(X) ,5x,9hMoment(Y) ,5x,9hMoment(Z)/) 

do  405  1=1, nlnd 

read  (5,1120)  nl , (p(lk) , lk=l,6) 

1120  format (i5 ,/ ,5(f 10 .4,/) , f 10. 4) 
write(6,362)  nl, (p ( lk) , lk=l,nq) 

362  format (14x,i5,2x,3fl4.4,3fl4.2) 

compute  load  vector  (B) 
do  405  kk=l,nq 
k=nq*nl- (nq-kk) 
b(k)=p(kk) 

405  continue 

read  and/or  compute  and  write  member  loads 
member  loads  due  to  gravity 
410  do  300  im=l, numem 
m=mid(im) 
in=mtype(im) 
w=ay*xa ( in ) * r ho ( m ) 
i=ij (im, 1) 
j=ij (im,2) 
xp=x(j)-x(i) 

ypay(j)-y(i) 

zp=z(j)-z(i) 

s  l=dsqrt  (xp,'r*2+yp,Wr2+zp,Wr2 ) 
xzp=ds q r t ( s 1** 2 - yp** 2 ) 
do* 10  ii=l , 12 
10  p(ii)=0.0 

if  (mrel(im, 1) . eq. 0 . and.mrel(im,2) . eq. 0)  go  to  100 


if  (mrel(im,l) .gt.0.and.mrel(im,2) .gt.O)  go  to  105 
if  (mrel(im,l) .gt.0.and.mrel(im,2) .eq.O)  go  to  110 
if  (mrel(im,l). eq.O. and. mrel(im,2). gt.O)  go  to  115 
100  call  did  (l,w,yp,xzp,sl) 
go  to  120 

105  call  did  (2,w,yp,xzp,sl) 
go  to  120 

110  call  did  (3,w,yp,xzp,sl) 
go  to  120 

115  call  did  (4,w,yp,xzp,sl) 

120  continue 

go  to  (121,122,123,124),  kind 

121  p(3)«p(7) 
p(4)*p(8) 
go  to  124 

122  p(3)=p(6) 

P(4)=p(7) 

p(5)=p(8) 

p(6)=p(12) 

go  to  124 

123  p(4)*p(7) 
p(5)=p(8) 
p(6)=p(9) 

124  continue 

c  transform  (P)  to  global  coordinates* 

n*im 

call  rotate  (2,n) 
do  306  jj*l,neq 
fi(im,jj)=tf(jj) 

306  tf(jj)=-tf(jj) 
c  merge  gravity  loads 

call  merge  (i,j,2) 

300  continue 

420  if  (nlmem)  490,490,425 
425  write  (6,600) 

600  format(10(/),29x,58hJ  0INT  FORCES  FROM  L0ADEDM 
1  E  M  B  E  R  S///llx,6hMember,3x,4hNode,5x,8hForce(X),6x,8hForce(Y), 
26x,8hForce(Z) , 7x,9hMoment(X) ,5x,9hMoment(Y) ,5x,9hMoment(Z)/) 

do  423  1=1, nlmem 

read(5,1121)  mn,i, (p(lm) , lm=l,6) 

1121  format (i5 ,/,i5,/,5(fl0.4,/),fl0.4) 
read(5,1122)  j , (p(lo) , lm=7 , 12) 

1122  format(i5,/,5(fl0.4,/),fl0.4) 

411  write(6,601)  mn,i, (p(lk) ,lk=l,nq) 

601  format(10x,i5 ,3x, i5 ,3fl4.4,3fl4.2) 
write(6,602)  j , (p(lk) , lk=nql ,neq) 

602  format(18x, i5 ,3f 14.4,3f 14. 2) 
n=mn 

call  rotate  (2,n) 
do  412  ii=l,neq 
fi(mn,ii)=fi(mn,ii)+tf (ii) 
tf(ii)«- tf(ii) 

412  continue 

c  merge  forces  due  to  member  loads 
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3 
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J 
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call  merge  (i,j,2) 

423  continue 

impose  initial  displacement  boundary  conditions 
490  do  424  l=l,numem 
i*ij(l,l) 

J-iJd.2) 

m*mtype(l) 

if  (ntype(i) . It. 1)  go  to  30 
do  35  jj=l,nq 
35  u(jj)=ui(i,jj) 

30  if (ntype(i) . It. l.and.ntype(j) . It. 1)  go  to  25 
do  40  jj=l,nq 
kk=j j+nq 

40  u(kk)=ui(j , jj) 
id=l 

go  to  (41,42,41,44),  kind 

41  call  strut  (id,i,j) 

-go  to  46 

42  if  (mcurv(m) .ne. 0)  call  curvbm  (id,i,j) 
if  (mcurv(m) .ne.0)  go  to  46 

call  beam2  (id,i,j) 
go  to  46 

44  call  beam  (id,i,j) 

46  do  50  jj=l,neq 

tf(jj)=0.0 
do  45  kks'l.neq 

45  tf(jj)=tf(jj)+s(jj,kk)*u(kk) 
tf(Jj)— tf(JJ) 

50  continue 

compute  load  vector  (b) 
call  merge  (i, j ,2) 

25  continue 

424  continue 
write  (6,1024) 

1024  format  (8(/),'The  System  Load  Vector  (B)',//) 
do  500  ii-l,numnp 

n=nq*ii-(nq-l) 

nn=nq*ii 

write  (6,1025)  ii, (b(k) ,k=n,nn) 

500  continue 

1025  format  (i5,6el9.7) 

reduce  the  load  vector  (B) 
call  bound (2) 
return 
end 


subroutine  loweig  (nmc.nuraeq.mband) 

coonon/slv/  a(50,25),b(50) 

common/ xmd/  xmass(50) ,damp(50 ,25) 

common/natrix/  la(50) ,tl(50) ,t2(50) ,f (50) 

common/ rr 2/  rf (50,50) ,rz(50, 50) ,r2l (50,50) ,rzl2 (50 ,50) 

common/eign/  eigvec(50,24) ,rho(24) ,a4(50,50) 

double  precision  a,b,xmass ,damp,tl,t2,f 

double  precision  rf ,rz,rzl,rzl2,eigvec,rho,a4 

nmc*0 

tole=1.00  E-06 
do  305  ii“l,numeq 
f (iiJ^xaassCii) 

305  b(ii)»f(ii) 

306  call  solver  (1) 

307  call  solver  (2) 
rhol=0. 

do  310  iisl,numeq 
310  rhol*rhol+b(ii)*f(ii) 
do  315  iial,nuaeq 
315  f (ii)=b(ii)*xmass(ii) 
rho2=*0 . 

do  320  iial,numeq 

320  rho2*rho2+b(ii)*f(ii) 
nmc=*nmc+l 

if  (nmc.gt.l)  go  to  330 
rho(2)»rhol/rho2 
do  321  iial,numeq 
f ( ii )=f ( ii ) / rho2** . 5 

321  b(ii)=*f(ii) 
go  to  307 

330  rho(l)=rhol/rho2 

if  (abs(l. -rho(l)/rho(2)) .Le.tole)  go  to  350 

do  331  ii=l,numeq 

f(ii)=f(ii)/rho2**.5 

331  b(ii)=f(ii) 
rho(2)=rho(l) 
go  to  307 

350  do  351  ii=*l,numeq 

351  eigvec(ii,  l)**f  (ii)/(xnass(ii)*rho2**.5) 
return 

end 


f 
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subroutine  matinv(n,wstif) 
c  matrix  inverse  c:  input,  output  still  is  c 

c  where  the  matrix  d  is  operating  matrix 

common/rr3/c(50,50) ,a2(50,50) ,a3(50,50) ,d(50,50) , la2(50,50) 
double  precision  C,d,a2,a3,p2,p3 
do  10  j*l,n 
do  10  k*l,n 

10  d(j,k)=0. 
do  11  k®l,n 

11  d(k,k)=l. 
do  55  i^l.n 
p2*c(i,i) 
do  40  j*l,n 
c(i, j)=c(i,j)/p2 

40  d(i, j)=d(i, j)/P2 
do  51  ic=l,n 
p3=-c(ic,i) 
do  50  k=*l,n 
if  Cic-i)  21,51,21 

21  c(ic,k)*c(i,k)*p3+c(ic,k) 

d(ic,k)*d(i,k)*p3+d(ie,k) 

50  continue 

51  continue 
55  continue 

do  70  it*l,n 
do  70  is=l,n 

70  c( it , is )=d( it , is ) 

if  (wstif.eq.0)  return 
do  800  ii*l,n 

800  write  (6,1000)  (c(ii, j j) , j j=l,n) 

1000  format  (6el3.6) 
return 
end 
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subroutine  merge  (i,j,imerge) 

comoon/par/  method, kind, numnp, nstrut ,nbeam,numem,nrnp,nmrel ,mband, 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common/slv/  a(50,25) ,b(50) 
common/xmd/  xmass(SO) ,damp(50,25) 

common  /stif/  s(12, 12) ,r(3 , 3) , t (12, 12) ,st(12, 12) ,tf (12) ,p(12) 
common  /xmss/  xms(12) 
dimension  ndf(12) 

double  precision  a,b,s ,r ,t,st,tf ,xmass ,damp,xms 
go  to  (5,16),  imerge 

form  structure  stiffness  matrix 
5  do  2  k=l,nq 
kk=k+nq 

ndf (k)=nq*i- (nq-k) 
ndf (kk)=nq* j - (nq*k) 

2  continue 

do  15  ii=l,neq 
kl=ndf(ii) 
do  15  jj=l,neq 
k2=ndf(jj) 
if (k2-kl)  15,10,10 
10  k3=k2-kl+l 

a(kl,k3)=a(kl,k3)+s(ii, j j) 
if  (k3 . eq. 1)  go  to  51 
go  to  15 

51  go  to  (15,26)  .method 
26  xmass(kl)=xmass(kl)+xms(ii) 

15  continue 
go  to  25 

form  structure  load  vector 

16  do  20  ii=l,nq 
k=nq*i-(nq-ii) 
kk=nq*j-(nq-ii) 
inq=ii+nq 
b(k)=b(k)+tf(ii) 
b(kk)=b(kk)+tf (inq) 

20  continue 
25  continue 
return 
end 
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subroutine  offs  (id,eps ,nx,nz, ipass) 
common/engy/  strain(ll,ll,10,2) ,energd(10) ,dv(2) 
common /mem/  mtype(SO) ,nd(50,2) ,mid(50) ,mlc(50) ,alfa(50) , 
1  mrel(50,2) ,thetai(50) ,thetaj(50) 

common/mat/  e(5) ,sigma(5) ,epsiln(5) ,pr(5) ,g(5) ,rho(5) 
common/off/  of f set (11 , 11 , 10 , 2) , toffs (11,11) 

®=mid(id) 

if  (ipass .ne. 10)  go  to  200 
strain (nx , nz ,  id , 1 )=strain (nx , nz , id , 2) 
strain(nx,nz, id,2)=eps 
if  (nz.eq.ll)  return 

avstn=.5*(strain(nx,nz,id, l)+strain(nx,nz+l , id, 1) ) 
avoff=.5*(offset(nx,nz, id, l)+offset(nx,nz, id, 1)) 
if  (nz.eq. l.or.nz.eq. 10)  goto  130 
delv=dv(2) 
go  to  131 

130  delv=dv(l) 

131  energd(id) -ener gd (id)+(avstn- avo  f  f ) 

1  *(eps-strain(nx,nz, id, 1) )*delv 

return 

200  x0=(eps-offset(nx,nz, id, 2) )*e(m) 
xl=sigma(m) 
x2=- sigma  (n>) 
if  (x0.gt.xl)  go  to  100 
if  (xO.Lt.x2)  go  to  110 
toffs(nx,nz)=offset(nx,nz, id, 2) 
return 

100  toffs(nx,nz)=eps-epsiln(m) 
return 

110  toffs(nx,nz)=eps+epsiln(m) 

120  return 


subroutine  order  (n,s,numeq) 

common/rr2/  rf (50,50) ,rz(50, 50) ,rzl (50,50) ,rzl2(50, 50) 
common/matrix/  La(50) ,tl(50) ,t2(50) ,f (50) 
double  precision  rf ,rz,rzl,rzl2,tl,t2,f 
do  100  ii=l,numeq 
if  (s.Le.rz(ii.l))  go  to  110 
100  continue 

write  (6,1) 
stop 

110  if  (ii-numeq)  115,125,125 
115  it=numeq 

do  120  in=ii,numeq-l 
it=it-l 

rz(it+l , l)=rz(it , 1) 

120  La(it+l)=La(it) 

if  (ii-1)  135,135,125 
125  do  130  im=l,ii-l 
rz(im, l)=rz(im, 1) 

130  La(im)=La(im) 

135  rz(ii,l)=s 
La(ii)=n 

1  format  (10x,'  S  IS  TOO  BIG  IN  SUBROUTINE  ORDER') 
return 
end 

subroutine  range  (ii,numeq,mband,mg,mbd) 

mbd=ii+mband-l 

if  ( mbd . gt . numeq )  mbd=numeq 

mg=ii-mband+l 

if  (mg.Le.0)  mg=l 

return 

end 

subroutine  rbound 

common/par/  method, kind, numnp.nst rut ,nbeam,numem,nrnp,nmrel ,mband , 
1  nlnd,nlmem,neq,nq, numeq, nlc.nif ^wstif ,wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) , ir(25,6) ,ui(25 ,6) 
common  /rest/  res(50) 
double  precision  res 
do  60  n=l,numnp 
do  60  kk=l,nq 
k=nq*n- (nq-kk) 
if  (ir(n,kk) .eq.0)  go  to  60 
res(k)=0. 

60  continue 
return 


subroutine  restor  (id,itt,nn) 
integer  wstif .wrstif ,wlod 

common/par/  method,kind,nunmp,nstrut .nbeara.numem.nrnp.nmrel ,mband, 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif , wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) , ir(25 ,6) ,ui(25 ,6) 
common/mem/  mtype(50) ,nd(50,2) ,mid(50) ,mlc(50) , alfa(SO) , 

1  mrel(50,2) ,thetai(S0) , theta j (50) 

common/mlib/  xa(25) ,zi(25) ,yi(25) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common/mlib2/  tf (25) ,bf (25) ,tw(25) ,bw(25) 
common/mat/  e(5) ,sigma(5) ,epsiln(5) ,pr (5) ,g(5) ,rho(5) 
common  /off/  of fset( 11 , 11 , 10 , 2) ,tof fs ( 11 , 11) 
common/ rest /res (50) 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50 ,3) 

common/engy/  strain( 11 , 11 , 10 ,2) ,  energd(lO) ,dv(2) 

dimension  epa(ll) , epz( 11) ,epc(ll) , iwl ( 11) , iw2( 11) , tryoff (11 , 11) 

dimension  nyie(2) ,width(10) ,zx(5) ,dz(10) 

double  precision  sL,dsqrt,xp,yp,xdp,xld>x2d>res 

double  precision  costhi .sinthi ,cl ,c2 ,c3 ,c4 ,c5 ,c6 ,ql ,q2 

double  precision  xaa.xbb.ya.yb.thitaa.thitab.paxi 

iL=nd ( id , 1 ) 

j  r=nd ( id , 2 ) 

xp=x(jr)-x(iL) 

yp=y(jr)-y(iL) 

s  L=ds  q  r  t  ( xp**  2+yp**  2 ) 

m=mid(id) 

n=mtype(id) 

dzl=bw(n)/4. 

dx=sL/10. 

ym=e(m) 

costhi=(x( jr) -x(iL) )/sL 
sinthi=(y(jr)-y(iL) )/sL 
dz(l)=tf (n) 
width( l)=bf (n) 
zx(l)=bw(n)+tf (n)/2 . 
do  140  kl=2 , 5 
xkl=float  (kl) 
width(kl)=tw(n) 
zx(7-kl)=(xkl-l . 5)*dzl 
140  dz(7-kl)=dzl 
do  145  kl=l ,5 
width(kl+5)=width(6-kl) 

145  dz(kl+5)=dz(6-kl) 

dv ( 1 ) =dx*dz ( 1 ) *w idth ( 1 ) 
dv ( 2 ) =dx*dz (2)*width(2) 

xAa=xdp(iL*3-2,3)*costhi+xdp(iL*3-l ,3)*sinthi 
ya=-xdp(iL*3-2,3)*sinthi+xdp(iL*3-l,3)*costhi 
thitaA=xdp(iL*3 ,3) 

xBb=xdp( jr*3-2,3)*costhi+xdp(jr*3-l ,3)*sinthi 

yb=-xdp( jr*3-2,3)*sinthi+xdp(jr*3-l ,3)*costhi 

thitaB=xdp ( j  r*3 , 3 ) 

pax i=ym*xa ( n ) * ( xBb - xAa ) 

nii=0 

izero=0 
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ipass=l 

if  (itt.ne.l)  go  to  100 

h3=0. 

h4=0 . 

h5=0. 

go  to  200 

Evaluate  h3  ,h4  and  h5 
if  (nii.ne.O)  go  to  101 
if  (nn.eq.2)  go  to  105 
do  103  ii=l , 11 
do  103  jj=l,ll 

tryoff (ii, j j)=2.*offset(ii, j j , id, 2) -offset (ii, jj ,id,l) 
go  to  101 
do  106  ii=l ,11 
do  106  j j=l , 11 

tryoff (ii, j j)=offset(ii, j j ,id,2) 
h3=0. 

do  110  jj=l,ll 
epa(j j)=0. 
do  110  ii=l ,5 

haxxl=(tryoff (j j , 7-ii)+tryof f ( j j ,6-ii))*.5 

haxx2=(tryof f ( j j , ii+5)+tryof f ( j j , ii+6) )*. 5 

epa( j j)=epa( j j )+(haxxl-haxx2)*zx(6-ii)*width(6-ii)*dz(6-ii) 

do  111  j j=l , 11 

if  (j j .eq. 1 .or . j j .eq. 11)  go  to  112 

h3=h3+epa( j j ) 

go  to  111 

h3=h3+ . 5*epa ( j  j ) 

continue 

h3=h3*yra*dx 

h4=0. 

do  121  ii=l , 11 
epc(ii)=0 . 
do  121  jj=l,ii 

if  (jj .eq. l.or. jj .eq.ii)  go  to  122 
epc ( ii )=epc ( ii ) +epa ( j  j ) 
go  to  121 

epc(ii)=epc(ii)+epa( j j )* . 5 
cont inue 
do  123  ii=l , 11 

if  (ii . eq . 1 . or . ii . eq. 11)  go  to  124 

h4=h4+epc(ii) 

go  to  123 

h4=h4+epc ( ii)* . 5 

continue 

h4=h4*ym*dx**2 

do  310  j j=l , 11 

epc(jj)=0- 

dc  310  kk=l,10 

ePc( j j)=«pc( j j)+ (tryoff (j j ,kk)+tryof f ( j j ,kk+l) )*.5 
1  *width(kk)*dz(kk) 

continue 
h5=0 . 

do  330  ii=l , 1 1 
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if  (ii.eq. 1 .or . ii. eq. 11)  go  to  331 

h5=h5+epc(ii) 

go  to  330 

331  h5=h5+epc(ii)*.5 

330  continue 

h5=h5*dx*ytn 
200  pax=(paxi-h5)/sL 

ql=ym*zi(n)*(thitaB-thitaA)-h3 

q2=ym*zi(n)*(yB-yA-thitaA*sL)-h4 

cl=12.*(.5*sL*ql-q2)/(sL**3) 

c2=12.*(q2*.5-ql*sL/6.)/(sL**2) 

do  210  nx= 1,11 

if  (itt.eq.l)  go  to  216 

hl=epc(nx)*ytn 

go  to  217 

216  hl=0. 

217  if  (itt.eq.l)  go  to  218 
h2=epa(nx)/zi(n) 

go  to  202 

218  h2=0. 

202  cappa=(c l*dx* (nx-l)+c2)/( ym*z i ( n ) ) +h2 
epaa=(pax+hl)/ (ym*xa(n)) 
epcc=cappa* (bw(n)+tf(n)) 
do  270  nz=l,4 

epz ( 6 -nz ) =epcc*dz l*nz/ (bw(n)+tf(n)) 

270  epz(6+nz)=-epz(6-nz) 
epz(l)=epcc 
epz(ll)=-epcc 
epz(6)=0. 
do  212  nz=l , 11 

212  epz(nz)=epz(nz)+epaa 
do  213  nz=l , 1 1 
eps=epz(nz) 

call  offs  (id,eps ,nx ,nz, ipass) 

213  continue 
210  continue 

ii  ( ipass. eq. 10)  go  to  380 
do  220  i=l , 11 
do  220  j— 1,11 

if  (toffs(i, j) .eq.tryoff (i, j))  go  to  220 

if  (tof fs(i , j ) . eq.O . and. tryoff (i , j) .ne. 0. )goto  221 

if  (toffs(i,j ) ,ne. 0 .and. tryoff (i,j) . eq. 0. )goto  222 

erx=(toffs(i, j) -tryoff (i, j) )/ tryoff (i,j) 

erx=abs(erx) 

izero=izero+l 

if  (erx.Le.0.05)  go  to  220 
go  to  240 

221  erx=abs (tryoff (i, j)) 
izero=izero+l 

if  (erx.Le.0.05)  go  to  220 
go  to  240 

222  erx=abs (tof fs ( i ,  j  ) ) 
izero=izero+l 

if  (erx.Le.0.05)  go  to  220 
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go  to  240 
220  continue 

if  (izero.eq.O)  go  to  380  - 

go  to  300 
240  nii*nii+l 

c  print  out  the  intermediate  offset 

if  (vstif.eq.0)  go  to  340 
350  write  (6,24)  id.nii 

do  360  i*l, 11  ^ 

jx=0 

do  370  J*l,ll 

if  (toffs(i, j) .eq.0. )  go  to  370 
jx*jx+l 

epc(jx)=toffs(i, j) 

iw2( jx)=j  ^ 

iwl( jx)*i 
370  continue 

if  (jx.eq.0)  go  to  360 

write  (6,22)  (iwl ( j j ) , iw2( j j ) ,epc( j j ) , j j=l , jx) 

360  continue 

340  if  (nii.eq.5)  go  to  300  q 

do  250  jj=l,ll 
do  250  ii=l ,11 

250  tryoff(ii, jj)=toffs(ii, j j) 

go  to  260 

c  Move  the  offset  to  the  next  step 

300  do  320  i*l,ll  3 

do  320  J*l,ll 
epc(j)=0. 

of fset(i, j , id, l)=of fset (i, j , id, 2) 
offset (i, j , id,2)=(tof fs(i, j )+tryof f (i, j))*-5 
320  tryoff(i, j)=offset(i, j ,id,2) 

ipass=10  j 

go  to  260 

c  Restoring  forces 

380  c3=(ym*xa(n)*(xbb-xaa)-h5)/sL 

c4=cl*sL+c2 

c5=-cl*sinthi-c3*costhi 


c6-cl*costhi-c3*sinthi  ^ 

res (3*iL-2)=res ( 3*iL-2)+c5 

res (3*iL- l)=c6+res ( 3*iL- 1 ) 

res (3*iL)=-c2+res (3*iL) 

res(3*jr-2)=res(3*jr-2) -c5 

res(3*jr-l)=-c6+res(3’vjr-l) 

res(3*jr)sc4+res(3*jr)  -j 

c  check  plastic  hinge 

if  (nn.ne.l)  return 
mm=0 

do  451  j=l , 1 1 , 10 
mo=mm-*-l 

nyield=0  j 

do  450  i=l , 11 

if  (of fset( j , i , id ,2) . eq . 0 . )  go  to  450 
nyield=nyield+l 
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450 

cont inue 
nyie(mm)=nyield 

451 

cont inue 
do  452  is=l,2 

if  (nyie(is) .Lt. 10)  go  to 

452 

453 

write  (6,25)  nd(id,is),id 

452 

continue 

Write  down  the  final 

offset 

460 

if  (wlod.eq.0)  return 
if  (izero.eq.0)  go  to  440 

50 

write  (6,23)  id 

430 


431 


440 

20 


do  431  i=l , 11 
jx=0 

do  430  j=l,ll 

if  (offset(i, j ,id,2) .eq.O. )  go  to  430 
jx=jx+l 

epc( jx)=of fset(i, j ,id,2) 

iw2(jx)=j 

iwl ( jx)=i 

continue 

if  (jx.eq.0)  go  to  431 

write  (6,22)  (iwl(j j ) , iw2( j j ) , epc( j j ) , j j=l , jx) 

continue 

return 

write  (6,20)  id.nii 

format  ('  THE  ITERATION  TIMES  OF  OFFSET  AT  \i3,x, 
1 ' th  MEMBER  ARE ' , i5 ) 


I 


22 

23 

24 


25 

999 


format  (6( ' ( ' ,i2, ' , ' , i2 , ’ ]  =',ell.4,’;  ')) 
format  ('  THE  FIANL  OFFSET  OF  THE  BEAM  AT  ’,13,’  MEMBER’) 
format  ('  THE  ITERATED  OFFSET  AT', 14,'  MEMBER  FOR  NII=’,I5, 

1'  ARE:') 

format  ('  PLASTIC  HINGE  OCCURS  AT  NODAL  POINT’, i3,'  MEMBER  #',I3) 
return 


end 
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subroutine  rotate  (nrot.id) 

common/par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) ,ir(25,6) ,ui(25,6) 
common/mem/  mtype(SO) ,nd(50,2) ,mid(50) ,mlc(50) ,alfa(50) , 

1  mrel(50,2) ,thetai(S0) .thetaj(SO) 

common/mlib/  xa(25) ,zi(25) ,yi(2S) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

common  /stif/  s(12, 12) ,r(3 ,3) ,t (12, 12) ,st(12, 12) ,tf (12) ,p(12) 
double  precision  s,r,t,st,tf ,cx, cy.cz, rad, alpha, sina,cosa, 

1  si, dsqrt , x 1 , x2 , y 1 , y2 , z 1 , z2 , ds in , dcos 

m=mtype(id) 

if  (mcurv(m) .ne.O)  go  to  99 
c  initialize  routine 

i=nd(id, 1) 
j=nd(id,2) 
xl=x(i) 
x2=x(j) 
yl=y(i) 
y2=y(j) 
zl=z(i) 
z2=z(j) 

sl=dsqrt((x2-xl)**2+(y2-yl)**2+(z2-zl)**2) 
c  compute  member  direction  cosines 

cx=(x2-xl)/sl 
cy=(y2-yl)/sl 
cz=(z2-zl)/sl 

c  generate  transformation  matrix  (t) 

14  do  20  ii=l,neq 
do  20  jj=l,neq 

20  t(ii,jj)=0.0 

go  to  (106,85,105,21),  kind 
c  three  dimensional  frame  transformation 

21  alpha=alfa(id)/57. 2957795 
alpha=alfa(id)/57. 2957795 
sina=ds in (alpha) 

cos  a=dcos (alpha) 
r(l,l)=cx 
r(l,2)=cy 
r(l,3)=cz 

i f ( cx**2+cz**2 )  25,30,25 
30  if (y2-yl)  45,45,50 
45  cy=-l. 

go  to  55 
50  cy=l . 

55  r (2 , l)=-cy*cosa 
r(2,2)=0.Q 
r(2,3)=sina 
r(3 , l)=cy*sina 
r (3 , 2)=0 . 0 
r(3,3)=cosa 
go  to  35 

25  rad=dsqrt ( cx**2+cz**2 ) 

r  ( 2 , 1  )=(  -cx*cy,vcosa-cz*s  ina )  /  r  ad 
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r(2,2)=rad*cosa 

r(2,3)=(- cy*cz*cos  a+cx*s ina ) / r ad 
r (3 , 1 ) = ( cx*cy* s ina - cz*cos  a ) / r ad 
r(3,2)=rad*sina 

r ( 3 , 3 ) = ( cy*cz*s ina+cx*cos  a ) / r ad 
35  do  40  k=l,3 
kl=k+3 
k2=k+6 
k3=k+9 
do  40  1=1,3 
t(k, l)=r(k, 1) 

11=1+3 

t(kl, ll)=r(k, 1) 

12=1+6 

t(k2, 12)=r(k, 1) 

13=1+9 

t(k3,13)=r(k, 1) 

40  continue 
go  to  99 

two  dimensional  frame  transformation 
85  do  90  ii=l,nq 
do  90  jj=l,nq 
90  r(ii,jj)=0.0 
r(l, l)=cx 
r(l,2)=cy 
r(2, l)=-cy 
r(2,2)=cx 
r(3,3)=1.0 
do  95  k=l ,nq 
kl=k+nq 
do  95  1=1, nq 
t(k, l)=r (k, 1) 
ll=l+nq 

t(kl,ll)=r(k, 1) 

95  continue 
go  to  99 

three  dimensional  truss  transformation 

105  t ( 1 , l)=cx 
t(l ,2)=cy 
t(l  ,3)=cz 
t(2,4)=cx 
t(2,5)=cy 
t(2,6)=cz 
go  to  99 

two  dimensional  truss  transformation 

106  t ( 1 , 1 )=cx 
t ( 1 ,2)=cy 
t(2,3)=cx 
t(2,4)=cy 

99  go  to  (100,200,300),  nrot 

transform  (S)  to  structure  coordinates 

100  do  60  ii=l,nif 
do  60  jj=l,neq 
st(ii,jj)=0.0 


do  65  kk=l,nif 

65  st(ii, j j)=st(ii, j j)+s(ii,kk)*t(kk, j j) 
60  continue 

do  70  ii=l,neq 
do  70  jj=l,neq 
—0 . 0 

do  75  kk=l,nif 

75  s(ii, j j )=s(ii, j j )+t(kk, ii)*st(kk, j j ) 

70  continue 
go  to  80 

transform  loads  to  structure  axes 
200  do  205  ii=l,neq 
tf (ii)=0.0 
do  110  jj=l,nif 

110  tf (ii)=tf (ii)+t(j j ,ii)*p(j j) 

205  continue 
go  to  80 

transform  forces  to  member  axes 
300  do  305  ii=l,nif 
tf(ii)=0.0 
do  305  jj=l,neq 
tf (ii)=tf (ii)+t(ii, j j)*p(j j) 

305  continue 
80  continue 
return 


subroutine  saa  (i,nwr) 
integer  wstif .wrstif ,wlod 

coauDon/par/  method , kind , numnp , ns  t  rut , nbeam, numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif, wstif .wrstif ,wlod 

common/ dlod/  dt ,nti ,ns (50 , 10) ,dl(50, 10) ,ndof(10) ,ndofl 
common/ rrl/  zz(50,50,3) ,zl2(50,50,2) ,z2(50,50,2) 
common/rr2/  rf(50,50) , rz(50,50) ,rzl(50,50),rzl2(50,50) 
common/cross/  w(50,50) ,aa (50,50 ) ,vz( 50,50) ,a2 (50,50 ) ,av( 50, 50) 
common/ flagw/  inpt , ifpt , jpnp , intpt , iftpt , jpnt , iplot ,meanw , iwvar 
dimension  aal(50,50,2) 
double  precision  w,aa,vz,az,av,aal 
double  precision  rf , rz, rzl , rzl2 ,zz ,zl2 ,z2 
open  (unit=13,file=,plotaa' ,status='new' ) 

This  subroutine  evaluate  aa(i,j)=  E  [  a  a(T)  ] 

Calculate  the  next  pre-computation 
do  200  i=l ,numeq 
do  200  j=l,numeq 

aal(i, j ,l)=(zz(i, j ,3)+4.*zz(i, j ,2)+zz(i, j ,l)-2.*zl2(i, j ,2) 

1  -2.*zl2(j ,i,2)+rf (i, j)+rf (j ,i)) 

200  continue 

Calculate  the  present  aa 
do  210  i=l .nurneq 
do  210  j=l ,numeq 

aa(i,j)=(aal(i,j,2)-2.*zl2(i,j,2)-2.*zl2(j ,  i,2))/dt**4 
210  continue 

do  220  ii=l,numeq 
do  220  jj=l,numeq 
220  aal(ii, j j ,2)=aal(ii, j j , 1) 
if  (i.gt. iftpt)  return 
if  (i-intpt)  405,  420,  430 
430  nwr=nwr+l 

if  (nwr.eq. jpnt)  go  to  420 
return 

420  if  (iplot. ne.0)  go  to  440 
write  (6,3)  i 
write  (6,4) 

do  460  ii=inpt , ifpt , jpnp 
460  write  (6,5)  (aa( ii , jj ), jj=inpt , ifpt , jpnp) 
nwr=0 
return 

440  do  490  ii=inpt , ifpt , jpnp 
490  write  (13,5)  (aa( ii , jj ) ,jj=inpt , ifpt , jpnp) 
nwr=0 

3  format  (/5x,'  NUMBER  OF  TIME  STEP',3x,i5) 

4  format  ('  aa(ii,jj)  ') 

5  format  (6el5.8) 

405  return 

end 
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subroutine  sav  (i.nwr) 
integer  wstif .wrstif ,wlod 

common/par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmr e 1 , mband 

1  nlnd,nlmem,neq,nq,numeq,nlc,nif .wstif .wrstif ,wlod 

common/dlod/  dt,nti,ns(50, 10) ,dl(S0, 10) ,ndof (10) ,ndof 1 
common/ flagw/  inpt , ifpt , jpnp , intpt , if tpt , jpnt , iplot .meanw , iwvar. 
common/ rrl/  zz(50,50,3) ,zl2(50,50,2) ,z2(50,50,2) 
common/ rr 2/  rf(50,50) ,rz(S0,50) ,rzl(50,50) ,rzl2(50,50) 
common/ cross/  w(50,50) ,aa(50,S0) ,vz(50,50) ,az(50,50) ,av(50,50) 
dimension  aa2(50,50,2) 
double  precision  wlaa,vz,az,avlaa2 
double  precision  rf ,rz,rzl,rzl2,zz,zl2,z2 
open  (unit=14,file='plotav' .statuss'new' ) 
c  This  subroutine  evaluate  av(i,j)=  E  [  a  v(T)  ] 

c  Calculate  the  next  pre -computation 

do  200  i=l, numeq 

do  200  j=l .numeq 

aa2(i, j , l)=(zz(i, j ,3)-zz(i, j , l)+2.*zl2(i, j ,2) 

1  -rf (i, j)+rf (j ,i)) 

200  continue 

c  Calculate  the  present  aa 

do  210  i=l, numeq 

do  210  j=l, numeq 

av(i, j)=(aa2(i, j , 2)-2.*zl2(j ,i,2))/(2.*dt**3) 

210  continue 

do  220  i=l, numeq 
do  220  j=l, numeq 
220  aa2(i , j ,2)-aa2(i , j , 1) 
if  (i.gt.iftpt)  return 
if  (i-intpt)  405,  420,  430 
430  nwr=nwr+l 

if  (nwr .eq. jpnt)  go  to  420 
return 

420  if  (iplot. ne.0)  go  to  440 
write  (6,3)  i 
write  (6,4) 

do  460  ii=inpt, ifpt, jpnp 
460  write  (6,5)  (av(ii , jj ) ,jj=inpt , ifpt , jpnp) 
nwr=0 
return 

440  do  490  ii=inpt , ifpt , jpnp 
490  write  (14,5)  (av(ii, jj) ,jj=inpt, ifpt, jpnp) 
nwr=0 

3  format  (/5x,'  NUMBER  OF  TIME  STEP',3x,i5) 

4  format  ('  av(ii,jj)  ') 

5  format  (6el5.8) 

405  return 

end 


197 


subroutine  saz  (i,nwr) 
integer  wstif ,wrstif ,wlod 

common/par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmre 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif ,wrstif ,wlod 

comraon/dlod/  dt,nti,ns(50,10),dl(50)10) ,ndof (10) ,ndofl 
common/ f lagw/  inpt , ifpt , jpnp , intpt , if tpt , jpnt , ip  lot ,meanw , iwvar 
common/ rrl/  zz(50 ,50 , 3) ,zl2(50 ,50 , 2) ,z2 (50 ,50 , 2) 
common/ rr2/  rf (50 , 50) , rz(50 ,50) , rzl(50 ,50) ,rzl2(50,50) 
common/cross/  vv(50 , 50) , aa (50 , 50) , vz (50 ,50) , az (50 ,50) ,av(50, 50) 
dimension  aa4(50,50,2) 
double  precision  vv,aa,vz,az,av,aa4 
double  precision  rf , rz , rzl , rzl2 , zz , zl2 , z2 
open  (unit=15 , f ile= ' plotaz 1 , status= ' new ' ) 

This  subroutine  evaluate  az(i,j)=  E  [  a  z(T)  ] 

Calculate  the  next  pre-computation 
do  200  i=l,numeq 
do  200  j=l,numeq 

aa4(i, j , l)=zl2(j ,i,2)-2.*zz(i, j ,2) 

200  continue 

Calculate  the  present  aa 
do  210  i=l,numeq 
do  210  j=l,numeq 

azU,j)=(aa4(i,j,2)+zl2(i,j,2))/(dt**2) 

210  continue 

do  220  ii=l,numeq 
do  220  jj=l,numeq 
220  aa4(ii, jj ,2)=aa4(ii, jj ,1) 
if  (i.gt.iftpt)  return 
if  (i-intpt)  405,  420,  430 
430  nwr=nwr+l 

if  (nwr . eq . jpnt )  go  to  420 
return 

420  if  (iplot.ne.0)  go  to  440 
write  (6,3)  i 
write  (6,4) 

do  460  ii=inpt , ifpt , jpnp 
460  write  (6,5)  (az(ii, jj) ,jj=inpt , ifpt, jpnp) 
nwr=0 
return 

440  do  490  ii=inpt , ifpt , jpnp 
490  write  (15,5)  (az(ii ,jj ), jj=inpt , ifpt , jpnp) 
nwr=0 

3  format  (/5x,*  NUMBER  OF  TIME  STEP',3x,i5) 

4  format  ('  az(ii,jj)  ') 

5  format  (6el5.8) 

405  return 

end 


subroutine  sbound  (nbound) 

common/ par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nrare 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(2S) ,ntype(25) , ir(25 ,6) ,ui(25 ,6) 
common  /rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,La2(50,50) 
common  /eign/  eigvec(50,24) ,rho(24) ,a4(50,50) 
double  precision  al,a2,a3,xLa,eigvec,rho,a4 
do  60  n=l, numnp 
do  60  kk=l,nq 
if  (ir(n,kk) .eq.O)  goto  60 
k=nq*n- (nq-kk) 
do  70  ii=l,numeq 
if  (ii.eq.k)  go  to  71 
a2(k, ii)=0. 
a2(ii ,k)=0. 
go  to  70 
71  a2(k,k)=l. 

70  continue 
60  continue 


if  (nbound. eq. 1)  return 
do  160  n=l , numnp 
do  160  kk=l,nq 
if  (ir(n,kk) .eq.O)  goto  160 
k=nq*n-(nq-kk) 
do  170  ii=l,numeq 
if  (ii.eq.k)  go  to  171 
al(k, ii)=0 . 
al(ii,k)=0. 
go  to  170 
171  al(k,k)=l. 

170  continue 
160  continue 

do  260  n=l, numnp 
do  260  kk=l,nq 
if  (ir(n,kk) .eq.O)  goto  260 
k=nq*n- (nq-kk) 
do  270  ii=l,numeq 
if  (ii.eq.k)  go  to  271 
a3(k, ii)=0. 
a3(ii,k)=0. 
go  to  270 
271  a3(k,k)=l. 

270  continue 


260  continue 

do  360  n=l .numnp 
do  360  kk=l,nq 
if  (ir(n,kk) .eq.O)  goto  360 
k=nq*n- (nq-kk) 
do  370  ii=l,numeq 
if  (ii.eq.k)  go  to  371 
a4(k,ii)=0. 
a4(ii,k)=0. 
go  to  370 
371  a4(k,k)=l. 


subroutine  solver (isolve) 

common/par /  method , kind , nuranp , ns t rut , nbeam , numem , nrnp , nmre 1 , mband , 
1  nlnd,nlmem,neq ,nq,numeq ,nlc,nif ,wstif .wrstif ,wlod 

common  /slv/  a(50,2S) ,b(50) 
double  precision  a,b,diag,air ,sum,dsqrt 
nhw=mband-l 
n=numeq 

go  to  (100,300),  isolve 

100  nred=0 
itrig=0 

1 im=mband 

101  if (nred+l-n)  102,500,500 

102  nred=nred+l 
diag=a(nred, 1) 

if  (diag-1 .0d-30)  601,601,110 

110  diag=dsqrt(diag) 

go  to  601  if  matrix  is  singular  or  not  positive  definite 
divide  roe  by  square  root  of  diagonal  element 

111  do  113  j=l , lim 

113  a(nred, j )=a(nred, j)/diag 

reduce  remaining  block  of  numbers 
201  do  251  i=l,nhw 
l=nred+i 

if(l-n)  211,211,251 
211  air=a(nred , i+1 ) 

skip  this  row  if  multiplier  air  is  zero 
if (air )  221,251,221 
221  do  231  j=i,nhw 
m=l+j-i 

231  a( 1 ,m)=a(l ,m) -air*a(nred, j+1) 

251  continue 
go  to  101 

601  itrig=nred 

500  if (itrig)  600,610,600 
singular  matrix 
600  write(6,602)  itrig 

602  format(lx,35hSingular  Matrix  at  Reduction  NRED  =  ,i4) 

610  continue 

go  to  700 

reduce  the  right  hand  sides 

300  continue 
nred=0 

301  if (nred+l-n)  302,401,401 

302  nred=nred+l 

divide  row  by  square  root  of  diagonal  element 
b(nred)=b(nred)/a(nred, 1) 

reduce  remaining  block  of  numbers 
do  351  i=l,nhw 
l=nred+i 

if(l-n)  311,311,351 
311  b(l)=b(l)-a(nred, i+l)*b(nred) 

351  continue 
go  to  301 

back  substitution 


401  b(n)=b(n)/a(n, 1) 
nl=n-l 

do  451  ii=l,nl 

i=n-ii 

suro=0.0 

do  421  jj=l,nhw 
m=j j+i 

if (n*o)  451,421,421 
421  sum=sum+a(i, j j+l)*b(m) 
451  b(i)=(b(i)-sum)/a(i, 1) 
25  continue 
700  continue 
return 


subroutine  sspace  (nroot ,nsmax) 

common/ par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmre 1 , mband , 

1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif .wrstif ,wlod 

common/modal/  stk(16,16) ,stm( 16 ,16),qk(16,16) ,xLam(16,2) 
common/ rr 2/  rf(50,50),rz(50,50),rzl(50,50),rzl2(50,50) 
common/ rr3/  al(50,50) ,a2(50,50) ,a3(50,50) ,xLa(50,50) ,la2(50,50) 
common/xmd/  xmass(SO) ,damp(50,25) 
common/eign/  eigvec(50,24) ,rho(24) ,a4(50,50) 
common /matrix/  La(50) ,tl(50) ,t2(50) ,f(50) 
common/slv/  a(50,25) ,b(50) 

double  precision  rf , rz, rzl , rzl2 , a ,b , xmass .damp , tl , t2 , f 
double  precision  al , a2 , a3 ,xLa , stk, stm ,qk,xLam,eigvec,rho,a4 
This  subroutine  evaluate  the  eigenvalue  and  eigenvector 
by  using  subspace  iteration,  the  trial  vector  is  rzl2(i,j), 
the  object  matrices  is  K*  and  M*  and  the  output  eivalues  are 
rho( i) , i=l , nroot , the  output  eigenvectors  are  eigvec(i.j) ,j=l .nroot 
Determine  the  order  of  iteration  vector 
read  (5,'")  trix 
nord=nroot 
rz( 1 , 1 )=1 . 0  E+20 
tole=l . 0  E-06 
nit=0 

do  110  ii=l,numeq 
do  110  jj=2,nord 
110  'rzl2(ii,  jj)=trix 
do  115  ii=l,numeq 
do  115  jj=l,numeq 
al(ii, jj+ii-l)=a(ii, jj) 
rf (ii, jj+ii-l)=a(ii, jj) 

115  continue 

do  116  ii=l,numeq 
do  116  jj=l,numeq 
if  (ii.eq.jj)  go  to  116 

rf ( j j , ii)=rf (ii, j j) 
al(jj , ii)=al(ii,  jj) 

116  continue 

Determine  the  starting  iteration  vector 
do  120  ii=l,numeq 
120  rzl2(ii, l)=xmass(ii) 

ordering  the  a(ii, l)/xmass(ii) 
do  220  ii=l,numeq 
s=a(ii, 1 ) /xmass (ii) 
call  order  (ii,s,numeq) 

220  continue 

do  225  ii=l,nord-l 
n2=La( ii) 

225  rzl2 (n2 , ii+l)=rz(ii , 1) 

Decomposing  al  =  [  K  ] 

145  call  gauss  (l.nord) 

135  call  gauss  (2,nord) 

Form  K*  amd  M* 
do  140  ii=l,numeq 
call  range  ( ii .nurneq , mband , mg ,mbd) 
do  140  jj=l,nord 


xLa(ii, j j)=0. 
do  140  kk=mg,mbd 

xLa(ii, j j)=xLa(ii, j j)+rf (ii,kk)*rzl2(kk, jj) 

do  150  ii=l,nord 

do  150  jj=ii,nord 

stk(ii, jj)=0. 

do  150  kk=l,numeq 

stk(ii, j j)=stk(ii, j j)+rzl2(kk,ii)*xLa(kk, j j) 

do  160  ii=l,nord 

do  160  jj=ii,nord 

stm(ii, j j)=0. 

do  160  kk=l,numeq 

stm(ii, j j)=stm(ii, jj)+rzl2(kk,ii)*rzl2(kk, jj)*xmass(kk) 
continue 

Symmetric 
do  165  ii=l,nord 
do  165  jj=ii,nord 
if  (ii.eq.jj)  go  to  165 
stm(jj ,ii)=stm(ii, j j) 
stk(jj,ii)=stk(ii, jj) 
continue 

Find  the  eigenpairs  for  K*  and  M* 
nit=nit+l 

if  (nroot.gt.2)  go  to  170 
call  eigen 
go  to  180 

call  jacobi(nord.nsmax) 

Check  for  convergence 
if  (nit.eq.l)  go  to  190 
do  250  ii=l,nord 

erl=abs (1 . -xLam(ii , 2)/xLam(ii , 1) ) 

if  (erl .gt . tole)  go  to  190 

continue 

go  to  200 

do  195  ii=l,nord 

xLam(ii,2)=xLam(ii, 1) 

do  210  ii=l,numeq 

do  210  jj=l,nord 

xLa(ii, j j)=0. 

do  210  kk=l,nord 

xLa(ii, j j)=xLa(ii, j j)+rzl2(ii,kk)*qk(kk, jj) 

do  215  ii=l,numeq 

do  215  jj=l,nord 

rzl2(ii , j j )=xLa( ii , j j )*xmass ( ii) 

go  to  135 

do  230  ii=l,numeq 

do  230  jj=l,nroot 

eigvec(ii, j j )=0 . 

do  230  kk=l,nroot 

eigvec(ii, j j )=eigvec(ii , j j)+rzl2(ii,kk)*qk(kk, j j) 
do  240  ii=l,nroot 
rho(ii)=xLam(ii, 1) 
write  (6,1)  nit 

format  (3x,'NUMBER  OF  ITERATION  IN  SSPACE' ,2x, i5) 
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return 

end 


subroutine  stiff 

common/par/  method .kind , numnp , ns t rut , nbeam , numem , nrnp , nmre 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif .wstif .wrstif ,wlod 

common/slv/  a(50,25) ,b(50) 
common/xmd/  xmass (50) ,damp(50 , 25 ) 

common/mem/  mtype(50) ,ij(50,2) ,mid(50) ,mlc(50) ,alfa(50) , 

1  mrel(50,2) ,thetai(50) .thetaj (50) 

common/mlib/  xa(25) ,zi(25) ,yi(25) ,xj (25) ,avy(25) , 

1  avz(25) ,mcurv(25) 

double  precision  a, b, xmass .damp 
do  5  id=l, numem 
i=ij (id, 1) 
j=ij (id,2) 
n=id 

m=mtype(id) 

go  to  (15,20,15,30),  kind 
15  call  strut  (n,i,j) 
go  to  10 

20  if  (mcurv(m) .ne.0)  call  curvbm  (n,i,j) 
if  (mcurv(m) .ne.0)  go  to  10 
call  beam2  (n,i,j) 
go  to  10 

30  call  beam  (n,i,j) 

10  continue 

merge  element  stiffness  matrix 
call  merge  (i,j,l) 

5  continue 
return 
end 
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subroutine  strut  (id,i,j) 

common/par/  method , kind , numnp , ns t rut , nbeam , numem , nrnp , nmre 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif ,wstif ,wrstif ,wlod 

common  /nod/  x(25) ,y(25) ,z(25) ,ntype(25) ,ir(25,6) ,ui(25 ,6) 
common/mem/  mtype(50) ,nd(50,2) ,mid(50) ,mlc(50) ,alfa(50) ,  1 
1  mrel(50,2) ,thetai(50) , theta j (50) 

comoon/mlib/  xa(25) ,zi(25) ,yi(25) ,xj(25),avy(25) , 

1  avz(25) ,mcurv(25) 

common/mat/  e(5) ,sigma(5) ,epsiln(5) ,pr(5) ,g(5) ,rho(5) 
common  /stif/  s(12, 12) ,r(3,3) ,t (12, 12) ,st(12, 12) ,tf (12) ,p(12) 
common  /xmss/  xms(12) 

double  precision  s,r,t,st,tf ,sl ,sl ,dsqrt ,xp,yp,zp,xms 

i=nd(id, 1) 

j=nd(id,2) 

xp5=x(j)-x(i) 

yps=y(j)-y(i) 

zp=z(j)-z(i) 

s l=dsqrt (xp**2+yp**2+zp**2 ) 
c  generate  element  stiffness  matrix  (s) 

m=mid(id) 
n=mtype(id) 
ym=e(m) 
area=xa(n) 
rh=rho(m) 
sl=xa(n)*ym/sl 
s(l,l)=sl 
s(l,2)=-sl 

s (2 , l)=“Sl 

s(2,2)=sl 

c  transform  (s)  to  global  coordinates 

call  rotate  (l,id) 
c  Form  mass  matrix 

go  to  (99,101),  method 
101  do  100  ii=l,neq 
xms(ii)=0. 

100  continue 

c l=rh*ar ea*s 1 / 2 . 
xms ( l)=cl 
xms(2)=cl 
99  return 
end 


subroutine  svv  (i,nwr) 
integer  wstif .wrstif ,wlod 

common/par/  method , kind , numnp , ns t  rut , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif, wstif .wrstif ,wlod 

common/dlod/  dt ,nti,ns (50 , 10) ,dl(50, 10) ,ndof (10) ,ndofl 
common/ flagw/  inpt , ifpt , jpnp , intpt . if tpt , jpnt , ip lot ,meanw , iwvar 
common/rrl/  zz(50,50,3) ,zl2(50,50,2)  ,z2(50,50,2) 
common/rr2/  rf (50,50) , rz(50,50) ,rz 1(50,50) ,rzl2(50,50) 
common/cross/  w(50,50) ,aa(50,50) ,vz(50,50) ,az(50,50) ,av(50,50) 
double  precision  zz,zl2,z2,rf ,rz,rzl,rzl2 
double  precision  w,aa,vz,az,av 
open  (unit=16,file='plotvv' ,status='new' ) 

This  subroutine  evaluate  vv(i,j)=  E  [v  v(T)  ] 
do  270  ii=l,numeq 
do  270  jj=l,numeq 

w(ii,jj)=(zz(ii, jj,3)+zz(ii, jj,l)-rf (ii,jj)-rf(jj,ii))/ 

1  (4 .*dt**2) 

270  continue 

if  (i.gt.iftpt)  return 
if  (i- intpt)  405,  420,  430 
430  nwr=nwr+l 

if  (nwr.eq. jpnt)  go  to  420 
return 

420  if  (iplot.ne.0)  go  to  440 
write  (6,3)  i 
write  (6,4) 

do  460  ii=inpt, ifpt, jpnp 
460  write  (6,5)  (vv(ii ,jj ), jj=inpt , ifpt , jpnp) 
nwr=0 
return 

440  do  490  ii=inpt , ifpt , jpnp 
490  write  (16,5)  (vv(ii ,jj ), jj=inpt , ifpt Jpnp) 
nwr=0 

3  format  (/5x,'  NUMBER  OF  TIME  STEP’,3x,i5) 

4  format  ('  vv(ii,jj)  ') 

5  format  (6el5.8) 

405  return 


subroutine  svz  (i,nwr) 
integer  wstif , wrstif ,wlod 

common/ par /  method , kind , numnp , ns t rut  , nbeam , numem , nrnp , nmr e 1 , mband , 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif , wrstif ,wlod 

common/dlod/  dt ,nti,ns(50, 10) ,dl(50, 10) ,ndof (10) ,ndof 1 
common/ flagw/  inpt , ifpt , jpnp , intpt , iftpt , jpnt , iplot , meanw , iwvar 
common/rrl/  zz(50,50,3) ,zl2(50,50,2) ,z2(50,50,2) 
common/ rr 2/  rf  ("50,50) , rz(50,50)  ,rzl(50,50)  ,rzl2(50,50) 
common/cross/  w(50,50) ,aa(50,50) ,vz(50,50) ,az(50,50) ,av(50,50) 
dimension  aa3(50,50,2) 
double  precision  w,aa,vz,az,av,aa3 
double  precision  rf ,rz,rzl,rzl2,zz,zl2,z2 
open  (unit=17,file='plotvz' ,status=' new' ) 

This  subroutine  evaluate  vz(i,j)=  E  [  v  z(T)  ] 

Calculate  the  next  pre -computation 
do  200  i=l,numeq 
do  200  j=l ,numeq 
aa3(i,j,l)=-zl2(j,i,2) 

200  continue 

Calculate  the  present  aa 
do  210  isl,numeq 
do  210  j=l ,numeq 

vz(i, j)=(aa3(i, j ,2)+zl2(i, j ,2) )/(2 .*dt) 

210  continue 

do  220  i=l,numeq 
do  220  j=l,numeq 
220  aa3(i, j ,2)=aa3(i, j ,1) 
if  (i.gt. iftpt)  return 
if  (i-intpt)  405,  420,  430 
430  nwr=nwr+l 

if  (nwr.eq. jpnt)  go  to  420 
return 

420  if  (iplot.ne.O)  go  to  440 
write  (6,3)  i 
write  (6,4) 

do  460  ii=inpt, ifpt, jpnp 
460  write  (6,5)  (vz(ii, jj) ,jj=inpt, ifpt, jpnp) 
nwr=0 
return 

440  do  490  ii=inpt, ifpt, jpnp 
490  write  (17,5)  (vz(ii, jj ) ,jj=inpt , ifpt .jpnp) 
nwr=0 

3  format  (/5x,'  NUMBER  OF  TIME  STEP',3x,i5) 

4  format  ('  vz(ii,jj)  ') 

5  format  (6el5.8) 

405  return 

end 


subroutine  write (i,nwr) 
integer  wstif .wrstif ,wlod 

common/par/  method, kind, numnp, ns t rut ,nbeam,numem,nrnp,nmrel ,mband, 
1  nlnd,nlmem,neq,nq,numeq,nlc,nif , wstif , wrstif ,wlod 

common/ random/  irandm, ncvdf ,ntacv ,nl ( 10) ,n2(10) ,ax(50,S0, 10) , 

1  nt (50, 50, 10), lorf.nroot ,nsmax,corri 

common/sol/  xdp(50,3) ,xld(50,2) ,x2d(50,3) 
common/matrix/  la(50) ,tl(50) ,t2(50) ,f(50) 
common/rest/  res (50) 
common/kuz/  rx(50,50,3,8) ,ck(8) 
common/ rrl/  zz(50,50,3) ,zl2 (50 , 50 , 2) ,z2 (50 ,50 , 2) 
common/ flagw/  inpt , ifpt , jpnp, intpt , iftpt , jpnt , ip  lot ,meanw, iwvar 
double  precision  xdp ,xld,x2d, t 1 , t2 , f , zz,zl2 ,z2 , rx , ck , res 
400  if  (i.gt. iftpt)  go  to  410 
if  (i- intpt)  410,  420,  430 
430  nwr=nwr+l 

if  (nwr.eq. jpnt)  go  to  420 
go  to  410 

420  if  (iplot.ne.0)  go  to  440 
if  (meanw.eq.0)  go  to  450 
write  (6,3)  i 
if  (lon.eq.2)  go  to  7 
write  (6,4) 

do  460  ii=inpt , ifpt , jpnp 

write  (6,5)  ii,  xdp( ii , 3) ,xld( ii , 1) ,x2d(ii , 1) , f ( ii) 

460  continue 
go  to  450 
7  write  (6,1) 

do  6  ii=inpt , ifpt , jpnp 

6  write  (6,5)  ii,  xdp( ii , 3) ,xld( ii , 1) ,x2d( ii , 1) , res ( ii) 

450  go  to  (470,480),  irandm 
480  if  ( iwvar. eq.0)  go  to  470 
do  490  ii=inpt , ifpt , jpnp 

write  (6,9)  (zz( ii , j j , 3) , j j=inpt , ifpt , jpnp) 

490  continue 
go  to  470 

440  if  (meanw.eq.0)  go  to  500 
if  (lon.eq.2)  go  to  540 
do  550  ii=inpt , ifpt , jpnp 
write  (10,15)  xdp(ii,3) , f (ii) 

550  continue 
go  to  500 

540  do  560  ii=inpt , ifpt , jpnp 

write  (10,15)  xdp(ii , 3) , res ( ii) 

560  continue 

500  go  to  (470,510),  irandm 
510  if  (iwvar. eq.0)  go  to  470 
do  520  ii=inpt , ifpt , jpnp 

write  (11,9)  (zz(ii, j j ,3) , j j=inpt,ifpt, jpnp) 

520  continue 
470  nwr=0 

c  Move  3rd  and  2nd  points  to  2nd  and  1st  point 

410  do  399  ii=l,numeq 
xdp ( i i , 1 ) =xdp ( i i , 2 ) 


210 


xdp(ii,2)=xdp(ii,3) 

399  continue 

if (irandm.eq. 1)  return 
do  380  iisl,nuneq 
do  380  jj=l,numeq 
zz(ii,jj,l)=zz(ii,jj,2) 
zz(ii, j j ,2)=zz(ii, j j ,3) 
z2(ii, jj ,l)=z2(ii, j j ,2) 
zl2(ii, j j , l)=zl2(ii, j j ,2) 

380  continue 

do  385  ii=l,numeq 
do  385  jj=l,numeq 
do  385  np=l ,nroot 
rx(ii, j j , 1 ,np)=rx(ii, j j ,2,np) 

385  rx(ii, j j ,2 ,np)=rx(ii , j j , 3 ,np) 

1  format  (/’#  DOF  ',3x,'  DISPLACEMENT  ',4x,'  VELOCITY' ,8x, 
1  '  ACCELERATION' ,4x, '  RESTORING  FORCE') 

3  format  (/// 5x,'  NUMBER  OF  TIME  STEP',3x,i5) 

4  format  (/'#  DOF  ’,3x,'  DISPLACEMENT  ',4x,'  VELOCITY’ ,8x, 

1  '  ACCELERATION' ,4x,'  FORCING  FUNCTION') 

5  format  (i5 ,4x,el5 . 8,4x,el5 . 8 ,2x ,el5 . 8 ,4x,el3 . 6) 

9  format  (6el3.5) 

15  format  (2el5.6) 
return 
end 


211 


